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ABSTRACT 

An  experimental  program  to  investigate  the  kinetics  of  the 
reaction  between  H^S  and  S02  was  carried  out.  A  commercial  bauxite 
sulphur  conversion  catalyst  was  used.  The  kinetic  measurements  were 
made  in  a  flow  recycle  reactor  with  a  differential  catalyst  bed.  The 
volumetric  feed  rate  and  feed  and  product  composition  enabled  the 
calculation  of  isothermal  rates  of  reaction  at  various  conditions. 

A  gas  chromatograph  analysis  was  employed  to  measure  the 
feed  and  product  compositions.  The  gas  chromatograph  areas  were 
measured  by  an  on-line  IBM  1800  computer.  Prior  to  implementing  the 
on-line  area  measurement  a  thorough  investigation  of  the  gas  chromato¬ 
graph  monitoring  program  package  was  carried  out  to  evaluate  its 
capabilities  for  this  specific  analysis  and  other  general  analyses. 

The  rate  measurements  were  made  at  one  temperature  only, 

515°K  (t  1°),  and  at  a  total  reaction  pressure  of  approximately  830 
mm  Hg.  Throughout  the  course  of  the  experimental  program  the  ratio 
of  the  two  reactants  was  varied  extensively,  as  well  as  the  feed  to 
catalyst  ratio.  A  number  of  runs  were  made  to  observe  the  effect  of 
the  presence  of  water,  one  of  the  products,  in  the  feed.  The  con¬ 
version  of  H^S  was  varied  between  9%  and  94%  while  the  H2S  rate  of 
reaction  varied  from  0.01  to  0.23  (gm. -moles/hour/gm.  catalyst). 

To  allow  the  analysis  by  the  gas  chromatograph  the  product 
stream  was  passed  through  a  condenser  to  remove  sulphur.  A  series  of 
experiments  performed  late  in  this  study  showed  that  an  appreciable 
amount  of  H^S-SO^  conversion  occurred  in  this  condenser.  The  reaction 
appeared  to  be  catalysed  by  the  condensed  sulphur.  This  meant  that 
the  product  compositions  obtained  were  not  those  of  the  reactor.  Since 
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it  was  not  possible  to  separate  the  contribution  of  the  conversion  due 
to  the  catalyst  and  that  due  to  the  sulphur  condenser,  no  attempt  was 
made  to  correlate  the  obtained  rate  data  to  kinetic  models. 
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I.  INTRODUCTION 

1 . 1  Background 

The  primary  goal  of  this  study  was  data  acquisition  over  a 
wide  range  of  variables  to  provide  an  improvement  to  the  rate  correla¬ 
tions  previously  obtained  for  the  Claus  reaction  (34,11).  Most  of  the 
previous  data  were  not  at  high  enough  conversions  to  be  influenced  by 
the  reverse  reaction. 

In  order  to  streamline  the  data  acquisition  a  program  designed 
to  eventually  result  in  a  completely  on-line  reactor  system  was  under¬ 
taken.  As  pointed  out  by  McGregor  (34),  the  first  and  most  important 
requirement  to  allow  on-line  operation  was  a  suitable  on-line  analysis. 

A  gas  chromatograph  monitoring  program  that  was  originally  supplied  by 
IBM  (26),  and  had  subsequently  been  modified  by  Coxhead  (9),  was  further 
modified  by  the  Chemical  and  Petroleum  Engineering  DACS  Centre  staff. 

The  principle  modifications  by  the  last  group  was  the  inclusion  of  a 
variable  scan  rate,  and  the  change-over  to  operation  in  a  multiprogram¬ 
ming  mode  (MPX).  These  modifications  appeared  to  have  rectified  all  of 
the  previous  problems  and  a  decision  was  made  to  use  this  system  rather 
than  a  modified  system  used  on  this  reactor  previously  by  Liu  (31). 

1 .2  Claus  Reaction 

The  reaction  of  H2S  and  S02  has  been  utilized  for  sulphur  pro¬ 
duction  for  more  than  a  century.  The  occurrence  of  H2S  in  many  natural 
gas  fields  made  the  process  even  more  common,  as  a  means  to  produce  a 
useful  byproduct  in  the  process  of  preparing  the  natural  gas  for  market. 

Interest  in  the  reaction  mechanism  and  a  suitable  equation  to 
predict  reaction  rates  over  a  wide  range  of  conditions  was  motivated  by 
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the  need  to  reduce  sulphur  losses  and  to  operate  the  reactors  as 
efficiently  as  possible. 

1 .3  Equipment 

The  equipment  used  in  this  study  was  originally  designed  and 
operated  by  McGregor  (34).  A  continuous  flow  recycle  reactor  with  a 
differential  bed  was  employed  to  allow  the  acquisition  of  isothermal 
data.  By  operating  at  a  sufficiently  high  recycle  to  feed  ratio  it 
was  possible  to  apply  a  continuous  stirred  tank  reactor  material  balance. 

McGregor  used  the  equipment  to  study  the  b^S  and  S02  reaction 
with  a  commercial  bauxite  catalyst  over  a  conversion  range  from  5  to  20 
percent.  Statistical  treatment  of  the  data  (11)  indicated  that  the 
data  was  not  influenced  by  any  contribution  of  the  reverse  reaction. 

Liu  (31)  modified  the  equipment  slightly  to  study  the  COS  and 
S0^  system.  This  system  was  of  interest  due  to  the  large  contribution 
of  sulphur  losses  to  COS  in  actual  plants  (30).  He  also  utilized  the 
apparatus  to  study  the  Claus  reaction  and  the  COS  reaction  over  other 
catalysts  that  were  being  tried  in  the  sulphur  industry. 

1 .4  Objectives  and  Results 

By  employing  larger  catalyst  charges  and  lower  feed  rates  it 
was  possible  to  extend  the  data  obtained  by  McGregor  (34).  A  further 
variation  in  reaction  conditions  was  also  obtained  by  the  addition  of 
H2O  to  the  feed. 

Procuring  of  usable  data  in  this  research  program  was  hindered 
by  problems  in  the  analytical  procedure.  It  was  discovered  that  the 
reaction  was  catalysed  by  the  condensation  of  sulphur  from  the  product 
stream.  It  had  previously  been  observed  that  liquid  water  was  an  active 
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catalyst  for  the  reaction  (34).  McGregor  had  taken  precautions  to  elim¬ 
inate  condensing  of  water  from  the  product  stream.  However,  the  analogous 
error  introduced  by  sulphur  condensation  was  not  recognized  by  him. 
Unfortunately,  the  removal  of  sulphur  was  necessary  to  allow  the  gas 
chromatograph  analysis.  Therefore,  no  simple  solution  was  available  to 
correct  the  situation. 

1 .5  Evaluation  of  the  Gas  Chromatograph  Monitoring  Program 

As  stated  previously,  one  objective  of  the  project  was  to  further 
develop  the  computer  data  acquisition  capabilities  of  the  equipment.  The 
main  barrier  to  a  complete  on-line  system  had  been  the  difficulty  in  per¬ 
forming  suitable  on-line  analyses  (34,31).  A  computer  program  package 
was  evaluated  in  this  project  to  ascertain  its  capabilities.  The  testing 
of  these  programs  covered  some  features  not  required  for  the  gas  chroma¬ 
tograph  analysis  of  this  project,  but  of  general  interest  in  the  field  of 
gas  chromatography  and  computers.  Some  recommendations  were  made  that 
would  further  improve  the  package  as  a  result  of  this  study. 
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II.  LITERATURE  SURVEY 

2.1  Studies  of  the  Claus  Reaction 

Gamson  and  Elkins  (16)  studied  the  Claus  reaction  with  an 
integral  reactor  packed  with  Porocel  catalyst.  They  measured  conver¬ 
sions  of  one  feed  gas  at  varied  temperatures  and  space  velocities. 

They  measured  conversions  that  were  1  to  3  percent  higher  than  their 
equilibrium  calculations  indicated  were  thermodynamically  feasible. 

Their  cited  temperatures  were  likely  "point"  temperatures  since  their 
integral  reactor  would  probably  not  operate  isothermal ly  for  this 
reaction.  No  attempt  was  made  to  obtain  rate  data  from  their  results. 

Murthy  and  Rao  (37)  studied  the  Claus  reaction  over  metallic 
sulphide  catalysts.  They  employed  a  batch  recycle  reactor  operated  at 
25°C.  The  deposition  of  sulphur  on  their  catalyst  lead  to  a  continuous 
unsteady  state  situation  with  regard  to  catalyst  surface  area. 

Taylor  and  Wesley  (46)  obtained  a  rate  equation  for  the 
reaction  on  pyrex  glass.  They  concluded  that  no  homogeneous  reaction 
occurred  since  they  were  able  to  demonstrate  that  the  reaction  rate 
was  proportional  to  the  catalyst  surface  area. 

Udintseva  and  Chufarov  (49)  found  glass,  aluminum,  and  aluminum 
oxide  to  be  good  catalysts  for  the  Claus  reaction.  Iron  and  iron  oxide 
were  found  to  catalyse  this  reaction  only  slightly.  During  the  course  of 
their  work  they  verified  that  no  homogeneous  reaction  occurred  between 
250°C  and  350°C. 

Hammar  (22)  studied  the  Claus  and  other  related  reactions  on  a 
cobalt-molybdenum-alumina  catalyst.  McGregor  (34)  pointed  out  possible 
errors  resulting  from  Hammar 's  method  of  chemical  analysis  which  may 
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prejudice  Hammar's  results.  Hammar  observed  the  retardation  of  the  rate 
of  reaction  by  the  products  and  also  concluded  that  the  reaction  rate 
was  dependent  on  the  external  surface  area  of  the  catalyst. 

Cormode  (8)  obtained  kinetic  data  using  a  recycle  flow  reactor 
with  a  commercial  bauxite  catalyst.  His  method  of  chemical  analysis 
involved  an  absorption  train  and  wet  chemical  techniques. 

McGregor  (34)  employed  a  recycle  flow  reactor  to  measure  iso¬ 
thermal  reaction  rates.  He  performed  experiments  with  total  conversions 
of  less  than  20  percent  at  temperatures  between  208°C  and  287°C.  The 
H^S  to  S02  ratio  was  varied  as  well  as  the  two  reactant  concentrations. 

The  experimental  program  included  tests  for  homogeneous  reaction,  external 
mass  transfer  controlling  step,  and  constant  catalytic  activity.  The 
reaction  rate  was  found  to  be  proportional  to  the  external  surface  area 
of  the  catalyst  and  to  exhibit  an  inverse  relation  to  the  H^O  concentra¬ 
tion.  A  subsequent  statistical  treatment  of  his  data  (11)  indicated  that 
no  appreciable  reverse  reaction  had  occurred  in  his  experiments. 

Wiewiorowski  (51)  did  a  qualitative  study  of  the  H^S-SO^  reaction 
in  a  liquid  sulphur  medium.  An  ethyl enedi amine  catalyst  was  employed  at 
concentrations  ranging  from  1  to  5000  ppm  with  50  ppm  cited  as  the  pre¬ 
ferred  level.  The  reaction  temperature  was  limited  to  temperatures 
between  120°C  and  160°C  by  the  properties  of  liquid  sulphur.  No  mention 
was  made  of  a  possible  reaction  without  a  catalyst  present. 

2.2  Gas  Chromatographic  Analysis  of  Sulphur  Gases 

Hodges  and  Matson  (25)  investigated  various  solid-liquid  and 
solid  stationary  phases  for  the  separation  of  C02,  H^S ,  S02,  COS  and 
CS2.  They  were  not  able  to  obtain  a  complete  analysis  with  any  of  the 
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solid-liquid  combinations  that  they  tried.  A  partial  analysis  was 
possible  employing  a  two-temperature  technique.  Triton  X-305  on 
Diatoport  S  at  25°C  and  75°C  separated  air,  H2S,  CS2  and  SO^.  They 
also  were  able  to  analyse  air,  CO^,  COS,  H^S  and  S02  using  an  iso¬ 
thermal  silica  gel  column.  However,  the  first  4  components  eluted  in 
the  first  two  minutes  and  the  S02  peak  lasted  for  3-1/2  minutes.  If 
H20  were  present  it  had  to  be  precut  from  the  analysis  or  allowed  to 
elute  between  injections.  They  were  only  able  to  get  acceptable  results 
using  Davison  08,  80-100  mesh  silica  gel. 

Jackson  and  Perry  (28)  discussed  the  analysis  of  sulphur  plant 
streams  with  respect  to  sampling,  separation,  and  interfacing  to  process 
control  devices.  Their  separation  scheme  required  a  precut  column  of 
Dow  Corning  to  remove  H20,  CS2  and  S.  They  reported  two  different 
columns  that  provided  acceptable  results:  Dow  Corning,  and  Porapak  R. 
Large  amounts  of  COS  caused  the  COS  and  S02  to  be  fused  on  the  first 
column  and  the  second  produced  a  broad  S02  peak. 

Obermiller  and  Chari ier  (38,39)  employed  a  dual  column,  two 
temperature,  split  flow  technique  to  analyse  N2,  02,  Ar,  CO,  C02,  H2S, 

H20,  COS  and  S02*  Both  columns  were  packed  with  Porapak  Q;  their  operat¬ 
ing  temperatures  were  -65°C  and  75°C.  The  He  carrier  gas  contained  100 
ppm  S02  to  maintain  the  Porapak  Q  in  a  conditioned  state.  If  H20  was 
present  to  a  significant  extent,  an  overlap  with  H2S  appeared  to  be 
possible  from  the  chromatograms  they  showed. 

Leveque  (30)  described  a  sampling  and  separation  scheme  employed 
to  measure  sulphur  plant  efficiencies.  A  two  column  isothermal  analysis 
was  achieved  using  3  flow  modes;  1)  two  columns  in  series,  2)  first 
column  alone,  and  3)  second  column  alone.  The  first  column  was  actually 
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a  composite  of  20  percent  Triton  X-305  on  Chromosorb  W  followed  by  a  short 
section  of  Porapak  Q.  The  second  column  was  Porapak  Q.  Water  was  present 
but  no  mention  was  made  regarding  its  elution  time  or  peak  shape. 

Thornsberry  (47)  investigated  the  use  of  Deactigel,  a  de¬ 
activated  silica  gel,  as  a  replacement  for  silica  gel.  He  found  that 
silica  gel  caused  excessive  S02  tailing  and  was  not  consistent  in  char¬ 
acteristics  from  batch  to  batch.  Deactigel  was  reported  to  eliminate 
these  problems.  He  also  reported  that  Porapak  Q-S  provided  a  separation 
of  all  of  the  gases  except  CS2 •  CS^  was  strongly  held  by  the  column 
and  eluted  as  an  extremely  broad  non-quanti tati ve  peak. 

Patrik,  Schrodt,  and  Kermode  (40)  investigated  various  liquid 
phases  on  Chromosorb  104  for  the  separation  of  air  and  SO^.  They  had 
previously  tried  a  silica  gel  analysis  without  satisfactory  results. 

Liu  (31)  employed  a  dual  column  arrangement  to  separate  N2, 

C02,  COS  and  S02>  The  columns  were  both  silica  gel  but  of  varying 
lengths.  The  S02  only  passed  through  the  first  short  column  to  avoid 
tailing,  while  the  N2>  C02  and  COS  passed  through  both  columns  to  pro¬ 
vide  an  adequate  separation.  If  H20  were  present  it  was  backflushed 
to  the  vent  from  the  first  column  after  the  elution  of  S02. 

McGregor  (34)  used  a  dual  column  arrangement  to  separate  N2, 

H2S  and  S02  in  the  presence  of  H20.  A  column  of  propylene  glycol  on 
Chromosorb  G  was  followed  by  a  short  silica  gel  column.  The  analysis 
required  1  mode  switch  to  backflush  H20  to  the  vent  from  the  first 
column  while  the  S02  was  eluting  from  the  second. 

2.3  Gas  Chromatograph-Computer  Systems 


2.3.1  IBM  Computers 
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IBM  issued  a  gas  chromatograph  monitoring  system  for  their 
IBM  1800  computer  (26).  This  system  was  hindered  by  the  lack  of  a 
variable  scan  rate.  Most  of  the  subsequent  monitoring  programs  for 
IBM  computers  were  modified  forms  of  this  original  one. 

McCullough  (33)  discussed  the  general  hardware  and  software 
requirements  for  monitoring  a  gas  chromatograph.  His  analysis  did  not 
consider  a  variable  scan  rate  approach. 

Briggs  (6)  reviewed  the  operation  of  a  system  on  an  IBM  1800 
computer  at  the  Monsanto  Company.  The  package  appeared  to  be  an  un¬ 
modified  version  of  the  original  programs.  The  system  handled  as  many 
as  20  chromatographs  and  3  mass  spectrometers  simultaneously.  The 
chromatographs  were  scanned  at  4  points  per  second. 

Tivin  (48)  described  a  modified  version  implemented  at  Proctor 
and  Gamble.  The  package  operated  at  a  constant  scan  rate  of  6  points 
per  second.  A  multiple  reference  peak  feature  had  been  implemented  to 
aid  in  peak  identification  during  complex  analyses.  A  dual  input 
approach  was  taken  to  obtain  maximum  resolution  for  small  and  large  peaks. 

Raymond,  Lawrey,  and  Mayer  (41)  discussed  a  modified  package 
in  use  at  Sun  Oil.  They  incorporated  a  variable  scan  rate  from  1  to  12 
points  per  second.  It  handled  as  many  as  16  chromatographs  simultaneously. 

An  on-line  system  for  an  IBM  1130  was  described  by  Craven, 
Everett,  and  Rubel  (10).  This  system  handled  30  gas  chromatographs 
simultaneously  with  a  maximum  multiplexer  rate  of  240  points  per  second. 

The  system  featured  variable  scan,  multiple  reference  peaks,  and  a 
programmable  gain  amplifier. 

A  partial  on-line  system  was  reviewed  by  Gladney,  Dowden,  and 
Swalen  (19)  of  the  IBM  Corporation.  Data  was  gathered  in  real-time  mode 
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and  fit  iteratively  off-line.  A  least  squares  technique  was  employed  to 
fit  the  data  to  a  convoluted  Gaussian  shape.  The  fitting  required  45 
seconds  overhead  time  and  approximately  6  to  8  seconds  per  peak.  The 
package  was  designed  to  handle  peaks  from  gas-liquid  chromatography . 

An  updated  program  package  was  released  by  IBM  (27).  It  included 
variable  scan  rate,  programmable  gain  attenuation,  and  off-line  shape 
fitting  peak  resolution.  Additional  scan  statures  and  additional 
filtering  were  added  as  well.  This  package  is  available  for  either  TSX 
or  MPX  operating  systems. 

2.3.2  Varian  Aerograph 

Gill  (18)  discussed  monitoring  systems  in  general  with  respect 
to  types  of  systems,  costs,  and  future  improvements.  He  considered  5 
types  of  systems:  1)  off-line,  2)  hybrid,  3)  time  shared,  4)  multi¬ 
channel  dedicated,  and  5)  dedicated. 

Baumann,  Herlicska,  and  Brown  (4),  of  Varian,  described  a  system 
which  gathered  data  in  real-time.  The  data  were  taken  at  a  constant  scan 
rate  and  first  derivatives  were  used  for  peak  detection.  In  order  to 
pick  peaks  of  different  shapes  a  variable  scan  was  simulated  by  a  "moving 
average"  technique  with  a  variable  number  of  points.  As  the  peak  widths 
increased,  more  points  were  averaged  together  to  form  one  point  for  the 
first  derivative  calculation. 

Baumann,  Brown,  and  Mitchell  (5)  reviewed  the  same  system  with 
respect  to  fused  peak  separation,  interfacing  details,  job  definition, 
and  accuracy.  To  make  job  definitions  easier  for  non-computer  orientated 
personnel  a  special  hardware  job  definition  facility  was  implemented. 
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2.3.3  Electronic  Associates  Inc. 

An  EAI  monitoring  package  was  described  by  Hancock  and 
Lichenstein  (23).  This  package  made  use  of  second  derivatives  fcr  peak 
detection.  Fused  peaks  were  separated  by  a  bi -Gaussian  approximation 
and  shoulders  were  treated  with  a  transformation  technique. 

Wilson  and  Price  (52)  discussed  the  implementation  of  a  system 
on  an  EAI  640  computer  at  the  Celanese  Corporation.  The  same  system  was 
installed  at  two  locations,  one  for  quality  control,  and  one  for  research 
applications.  Twenty  instruments  were  monitored  simultaneously  in  a 
dedicated  mode.  The  improved  accuracy  obtained  by  this  system  was  dis¬ 
cussed  in  some  detail. 

2.3.4  Others 

Burke  and  Thurman  (7)  tested  a  system  on  a  Hewett  Packard  2115 
A  computer  for  the  purposes  of  thermodynamic  measurements.  They  were 
interested  mainly  in  evaluating  available  hardware  to  determine  the 
feasibility  of  such  an  application. 

Watson  (50)  of  Data  Associates  Incorporated  discussed  the 
interfacing  of  gas  chromatographs  to  time  shared  computers  and  outlined 
desirable  software  features.  He  cited  the  necessity  of  a  variable 
sampling  rate  and  a  programmable  gain  amplifier. 

Stevens  and  Villalobos  (45)  described  a  system  using  a  PDP  8/1 
computer.  The  mini -computer  was  dedicated  to  the  chromatographs  and 
had  the  capability  of  passing  information  either  to  a  larger  computer, 
or  to  conventional  process  control  instrumentation.  This  system  incor¬ 
porated  programmable  gain  amplification,  but  used  a  constant  scan  rate. 

Mears  (35,36)  reviewed  a  system  implemented  at  Mobil  Oil.  A 
dedicated  mini -computer  was  linked  to  a  larger  computer.  It  was  a 
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complete  real-time  system  utilizing  the  first  derivative  for  peak  detec¬ 
tion.  Every  instrument  was  polled  10  times  per  second. 

Lyons  (32)  discussed  the  economics  of  implementing  a  computer 
system.  The  time  savings  for  various  complexities  of  analysis  were  dis¬ 
cussed.  He  cited  2  years  as  a  payoff  time  for  a  £  41,550  system. 

Frazer,  Kray,  Bertoglio  (15)  described  a  highly  interactive 
system  that  allowed  the  chromatograph  operator  to  make  decisions  about 
peak  separation  and  baseline  positioning.  The  operator  communicated 
with  the  computer  system  through  a  graphical  display  terminal. 
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III.  EQUIPMENT  AND  EXPERIMENTAL  PROCEDURE 

3.1  Introduction 

The  continuous  flow  recycle  reactor  and  supporting  equipment 
used  in  this  study  were  essentially  those  used  by  McGregor  (34).  Some 
minor  changes  were  made  by  Liu  (31)  to  allow  larger  catalyst  charges 
and  improved  operation  of  the  sulphur  condenser.  Minor  changes  were 
made  during  the  course  of  this  work  to  improve  the  stability  of  the 
feed  system  and  to  increase  the  on-line  data  acquisition  facilities. 

3.2  Reactor  and  Recycle  Loop 

The  reactor  assembly,  as  modified  by  Liu  (31),  was  used  for 

) 

this  work  in  order  to  allow  larger  catalyst  charges  to  be  used.  Figure 
3.1  shows  a  detailed  diagram  of  the  catalyst  holder.  The  fabrication 
was  of  316  stainless  steel.  A  200  mesh  stainless  steel  screen  was 
employed  to  hold  the  catalyst  charge.  The  recycled  gases  were  pumped 
downwards  through  the  catalyst  bed. 

A  sliding  vane  compressor  was  employed  to  recycle  the  gases. 

The  compressor  body  was  constructed  of  316  stainless  steel  and  the 
vanes  were  constructed  of  graphite.  This  allowed  the  compressor  to 
operate  without  grease  or  oil  at  temperatures  up  to  800°F.  A  detailed 
description  of  the  compressor  was  provided  by  McGregor  (34). 

The  catalyst  bed,  recycle  loop,  and  recycle  pump,  were  enclosed 
in  a  heated  fluidized  sand  bath  to  maintain  a  constant  temperature  through¬ 
out  the  apparatus.  The  fluidized  sand  bath  was  heated  by  three  sources. 

The  steel  wall  of  the  sand  bath  was  heated  by  12  strip  heaters  bolted 
longitudinally  on  the  outside.  This  1.5  killowatt  energy  source  was  con¬ 
trolled  manually  by  supplying  variable  amounts  of  power  from  a  power 
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supply.  The  strip  heaters  and  outside  wall  of  the  sand  bath  were  enclosed 
by  a  2  inch  thick  asbestos  insulation  wall.  The  fluidizing  air  to  the 
sand  bath  was  preheated  by  a  6  kilowatt  Chromalox  immersion  heater. 

This  heater  was  controlled  by  a  Chromalox  AR-5514  on/off  thermostat.  A 
second  heater  on  the  air  line  was  a  3  kilowatt  Chromalox  immersion 
heater  controlled  by  a  Honeywell  R7161  controller  with  proportional  and 
reset  controls.  This  controller  operated  to  maintain  a  constant  air 
temperature  into  the  fluidized  sand  bath.  The  air  was  dispersed  at  the 
bottom  of  the  bath  by  a  2  inch  thick  layer  of  5  millimeter  diameter 
glass  beads  held  in  place  by  a  fine  mesh  screen.  This  arrangement  caused 
the  sand  to  fluidize  over  the  pump  and  recycle  loop,  and  maintained  a 
nearly  constant  temperature  throughout  the  apparatus.  The  air  leaving 
the  bath  was  passed  through  a  cyclone  separator  to  remove  any  sand  that 
had  been  carried  over. 

Figure  3.2  includes  the  schematic  layout  of  the  entire  reactor 

assembly. 

3.3  Feed  Preparation  and  Metering  System 

In  order  to  allow  complete  flexibility  of  reactant  concentra¬ 
tions  and  ratios,  the  feed  gas  was  mixed  continuously  from  separate 
bottles  of  N^,  H2S  and  S02>  This  required  a  feed  system  capable  of 
maintaining  a  constant  flow  and  a  constant  composition  for  the  course 
of  an  experiment. 

The  gases  were  discharged  from  the  cylinders  at  a  constant 
pressure  by  means  of  regulators.  Each  gas  stream  was  then  passed 
through  a  500  cubic  centimeter  bed  of  CaSO^  to  remove  any  moisture 
(liquid  water  tends  to  catalyse  the  Claus  reaction,  particularly  on 
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Figure  3-2  Schematic  Flow  Diagram  of  Modified  Experimental  Equipment 
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glass  surfaces).  Separate  needle  valves  and  Moore  63  BU-L  constant 
differential  flow  controllers  were  used  to  maintain  constant  flows  for 
each  gas.  The  relative  magnitudes  of  the  individual  feed  gases  could 
be  observed  on  rotameters.  The  individual  streams  were  then  mixed  by 
means  of  a  venturi . 

The  total  feed  flow  to  the  reactor  was  measured  by  a  Foxboro 
613  PL  electronic  differential  pressure  cell.  In  order  to  maintain  a 
constant  and  known  flow  the  pressure  in  the  feed  system  above  the  ori¬ 
fice  was  held  at  a  steady  pressure  by  means  of  a  pressure  relief  valve. 

A  Foxboro  62  H  controller  operated  on  an  input  from  a  Foxboro  66  FR-2 
electronic  pressure  transducer  to  control  a  Foxboro  automatic  valve. 

This  pressure  relief  system  bled  off  the  required  amount  of  gas  to  main¬ 
tain  a  constant  pressure  on  the  upstream  side  of  the  flow  measuring 
orifice. 

The  actual  feed  flow  to  the  reactor  was  set  manually  by  an 
air  operated  Foxboro  automatic  valve.  The  pressure  relief  system  auto¬ 
matically  adjusted  to  maintain  the  desired  pressure  in  the  feed  system. 
This  made  feed  rate  changes  possible  without  upsetting  the  feed  composi¬ 
tion.  This  system  required  that  some  bleed-off  occurred  at  all  feed 
rates . 

Experience  indicated  that  the  reactor  pressure  was  influenced 
by  a  dynamic  flow  behaviour  resulting  from  the  condensation  of  sulphur 
in  the  condenser.  It  was  far  more  acceptable  to  have  the  reactor  pres¬ 
sure  change  slightly,  (0.5-1 .0  mm  Hg),  than  to  have  the  feed  rate  change. 
Therefore  a  Foxboro  automatic  valve  was  employed  on  the  product  line  to 
maintain  a  constant  differential  across  the  feed  orifice  meter.  This 
automatic  valve  was  controlled  by  a  Foxboro  625  M  controller. 
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By  holding  all  these  disturbances,  affecting  feed  flow  and 
composition,  to  a  minimum  it  was  possible  to  maintain  a  set  steady  state 
indefinitely.  Figure  3.2  shows  the  entire  feed  system.  Figure  3.3 
illustrates  the  control  scheme  of  the  automatic  valve  systems. 

In  order  to  obtain  a  wide  variation  in  H^O  concentration  in 
the  reactor,  provision  was  made  to  add  an  H20  feed  stream  to  the  reactor 
loop.  Distilled  water  was  added  at  a  variable  rate  by  means  of  a  Sage 
Model  355  syringe  pump  with  a  50  cubic  centimeter  syringe.  This  parti¬ 
cular  pump  was  chosen  due  to  the  wide  variation  of  rates  possible 
(0.0034  cc/min  to  86  cc/min  with  a  50  cc  syringe).  The  liquid  water  was 
vaporized  in  an  18  inch  coil  of  1/8  inch  stainless  steel  tubing  enclosed 
in  the  fluidized  sand  bath.  The  vaporized  H^O  was  added  to  the  N^,  H^S 
and  S02  stream  by  means  of  a  "T"  connection  just  prior  to  the  reactor 
loop.  The  feed  rate  of  the  water  was  determined,  by  a  calibration  of 
the  syringe  pump.  This  calibration  is  included  as  section  3  of  Appendix 
A. 

3.4  Sampling  System 

The  sampling  system  enabled  the  gas  chromatograph  to  analyse 
the  feed  and  the  product  streams  alternately. 

The  product  stream  was  passed  through  a  sulphur  condenser  to 
avoid  sulphur  deposition  in  the  chromatograph  columns  and  detector  fila¬ 
ments.  The  condenser  is  shown  in  detail  in  Figure  3.4.  It  was  main¬ 
tained  at  a  temperature  above  the  solidification  point  of  sulphur  by 
Ni chrome  wire  heaters.  The  wire  was  wrapped  around  the  outside  of  the 
condenser  in  such  a  way  that  a  gradual  decrease  of  temperature  occurred 
from  inlet  to  outlet.  This  insured  that  the  bulk  of  the  sulphur  remained 
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FIGURE  3-3:  FEED  SYSTEM  CONTROL  SCHEME 
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in  the  liquid  phase  and  flowed  down  the  condenser  to  the  sulphur  accumu¬ 
lator.  The  top  of  the  condenser  was  maintained  at  about  110°C  to  insure 
that  no  water  condensed  out  of  the  product  stream. 

The  product  lines  leading  to  the  gas  chromatograph  were  heated 
by  wire  wrappings  to  avoid  water  condensation.  Since  only  a  small  por¬ 
tion  of  the  product  stream  was  required  for  analysis,  the  bulk  of  the 
stream  bypassed  the  sample  system. 

The  bypass  stream  flowed  through  a  condenser,  operated  at  the 
ambient  room  temperature,  to  remove  water.  This  was  necessary  to  keep 
the  water  from  plugging  the  reactor  pressure  control  valve  and  the  vent 
lines.  This  condenser  is  also  included  in  Figure  3.4  along  with  the 
sulphur  condenser. 

Inside  the  chromatograph  oven  the  desired  stream  (product  or 
feed)  was  selected  by  a  solenoid  operated  air  slider  valve.  To  allow 
this  switching  to  be  made  without  upset  to  the  reactor  flows,  a  certain 
amount  of  adjustment  was  required  to  5  needle  valves  prior  to  beginning 
a  series  of  runs.  The  needle  valves  and  both  modes  of  flow  are  shown 
in  Figure  3.5.  Needle  valve  C  was  adjusted  to  provide  1  in.  of  Hg  pres¬ 
sure  within  the  sample  loop  as  indicated  by  the  manometer.  Needle  valves 
A  and  B  were  adjusted  to  balance  the  flows  to  the  system.  The  existence 
of  equal  feed  and  product  flows  was  detected  by  a  constant  manometer 
pressure  on  switching  modes.  Next,  needle  valves  D  and  E  were  adjusted 
to  maintain  constant  flows  of  the  two  streams  if  they  were  being  sampled 
or  if  they  were  being  vented.  Again  this  balance  was  made  by  switching 
selector  modes  and  observing  the  reaction  of  either  the  feed  pressure, 
or  the  reactor  pressure.  Once  this  initial  balancing  was  complete  no 
further  attention  was  usually  required  to  maintain  a  constant  sample 
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Figure  3-4  Modified  Water  and  Sulfur  Condensers 
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pressure  and  to  allow  smooth  mode  switching.  The  feed  system  was  such 
that  changes  in  feed  flow  to  the  reactor  had  no  effect  on  the  sampling 
system,  since  the  two  sample  streams  were  withdrawn  from  areas  main¬ 
tained  at  constant  pressures. 

The  gas  stream  being  sampled  flowed  through  the  2  c.c.  sample 
loop  to  the  vent  system  continuously,  except  during  the  15  second 
"sample  inject"  period.  During  this  period  the  sampled  stream  was 
routed  directly  to  the  vent  and  the  He  carrier  gas  stream  flowed  through 
the  sample  loop  and  on  to  the  columns.  These  two  modes  are  shown  in 
Figure  3.5.  This  injected  a  constant  volume  of  gas  into  the  chromato¬ 
graph  columns,  the  volume  depending  on  the  sample  loop  volume  and  pres¬ 
sure. 

3.5  Product  and  Feed  Analysis 
3.5.1  Egui pment 

The  gas  chromatograph  analysis  was  supervised  by  a  Beckman 
Model  320C  Programmer.  The  unit  controlled  11  cam-operated  micro¬ 
switches  by  means  of  a  synchronous  motor.  The  cam  switches  were  vari¬ 
able  with  respect  to  the  length  of  time  they  were  open  and  to  the  time 
at  which  they  initially  opened  or  closed.  The  cycle  time  of  the 
apparatus  was  also  variable  by  switching  either  motors  or  the  gear  ratio 
of  the  drive  assembly.  Throughout  this  project  the  cycle  time  was  left 
at  6  minutes. 

The  microswitches  were  utilized  in  two  ways: 

1.  to  operate  a  solenoid  air  valve  which  provided  air  pressure  to  one 
side  or  the  other  of  a  slider  valve, 

2.  to  close  an  electronic  relay  and  complete  an  electronic  circuit. 
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FIGURE  3 - 5 :  MODE  SELECTION  AND  SAMPLE  INJECTION  VALVES 
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The  first  way  was  utilized  for  sample  injection  as  described 
in  section  3.4.  The  second  application  was  used  for  changing  the  signal 
attenuation  and  closing  the  IBM  1800  interrupt  contacts  to  begin  scan¬ 
ning  by  the  monitoring  programs.  The  attenuations  were  applied  by 
routing  the  detector  output  through  1  of  4  ten  turn  potentiometers.  The 
resistances  of  the  potentiometers  were  adjusted  to  apply  the  desired 
amount  of  attenuation  to  keep  the  signal  within  a  20  millivolt  range. 

The  Beckman  Programmer  was  capable  of  operation  in  either  a 
single  sample  mode  or  in  a  continuous  manner.  By  operating  in  a  con¬ 
tinuous  mode  the  complete  analysis  of  one  gas  sample  was  performed  every 
6  minutes  (including  computer  monitoring  and  area  determination).  All 
that  was  required  of  the  operator  was  periodic  baseline  adjustments  and 
the  switching  of  the  stream  being  sampled.  This  allowed  the  operator  to 
devote  a  maximum  amount  of  time  to  the  rest  of  the  apparatus  and  still 
obtain  reliable  and  immediate  results. 

The  chromatograph  was  monitored  simultaneously  by  a  Sargent 
Model  SR  millivolt  recorder  and  the  IBM  1800  computer.  The  recorder 
was  equipped  with  a  disc  type  mechanical  integrator;  however,  the 
computer  analysis  was  used  throughout  the  project.  The  recorder  was  used 
only  as  a  visual  check  on  the  computer  and  as  a  means  of  providing  faster 
information  about  process  adjustments  (the  computer  results  were  reported 
at  the  end  of  the  6  minute  cycle). 

The  gas  chromatograph  employed  a  four  filament  bridge  with 
separate  carrier  and  reference  streams.  The  filament  current  was  main¬ 
tained  at  320  m.a.  and  both  He  flows  were  adjusted  to  40  c.c.  per  minute 
by  means  of  separate  needle  valves.  The  columns,  detector,  sampling 
valve,  and  stream  switching  valve  were  enclosed  in  a  single  temperature 
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controlled  oven. 

3.5.2  Chromatographic  Columns  for  the  Analysis  of  Sulphur  Gases 

A  typical  plant  stream  could  include  N2,  C02>  COS,  H2S,  S02, 
H20,  and  CS2.  One  objective  of  this  research  project  was  to  develop  a 
method  of  analysis  which  would  provide  quantitiati ve  measurements  of 
all  of  these  components.  However,  since  this  analysis  was  more  com¬ 
plicated  than  the  analysis  of  N2,  H2S,  S02  and  H20  required  for  the 
kinetic  measurements,  it  was  not  used  extensively  in  this  project. 

3.5. 2.1  Analysis  of  No,  H^S,  SOq  and  HpO 

An  analysis  of  the  four  components  of  interest  to  this  project, 
N2,  H2S,  S02,  and  H20,  was  carried  out  isothermal ly  and  without  back- 
flushing.  The  He  carrier  and  reference  flows  were  both  held  at  40  c.c. 
per  minute.  The  columns  and  detector  were  maintained  at  225° F.  Higher 
temperatures  caused  a  fusing  of  the  S02  and  H20  peaks,  while  lower 
temperatures  resulted  in  increased  H20  tailing.  The  two  columns  were 
1/8  inch  thin  walled  stainless  steel  tubing.  The  first  column  was  packed 
with  Chromosorb  104  and  was  4  feet  long.  The  second  column  was  packed 
with  Porapak  Q-S  and  was  6  feet  long.  The  complete  analysis  was  carried 
out  in  the  two  column  flow  mode.  No  attempt  was  made  to  optimize  the 
length  of  the  Porapak  Q-S  column.  Shorter  Chromosorb  104  columns  did 
not  give  adequate  separation  of  S02  and  H20,  while  longer  columns  caused 
increased  H20  tailing. 

The  analysis  of  one  sample  was  easily  carried  out  in  less  than 
6  minutes.  A  computer  plot  of  the  signal  received  by  the  computer  is 
shown  in  Figure  3.6.  The  N2  peak  for  this  analysis,  and  all  the  other 
analyses  that  follow,  has  been  attenuated  120  times.  All  the  other  peaks 


are  not  attenuated. 
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3.5. 2.2  Analysis  of  Nn»  C02>  H^S,  COS,  SO^  and  HqO 

The  columns  described  in  the  previous  section  were  used  to 
analyse  Ng*  CC^,  H^S,  COS,  SO2,  and  H^O  by  lowering  the  oven  tempera¬ 
ture  to  180°F.  This  lower  temperature  resulted  in  increased  H^O  and 
SO^  tailing.  A  shorter  Chromosorb  104  column,  3  feet,  gave  SO  2  and 
H2O  peaks  comparable  to  the  previous  analysis. 

A  computer  plot  of  a  sample  analysis  using  a  4  foot  Chromosorb 
104  column  is  shown  in  Figure  3.7. 

3.5.2. 3  Analysis  of  CO2,  ^S,  COS,  SO2,  ^0  and  CS2 

The  complete  analysis  of  N2»  CO2,  H^S,  COS,  S02>  H20  and  CS2 
was  more  complicated.  CS2  was  very  strongly  adsorbed  on  Porapak  Q-S 

and  therefore  CS2  could  not  be  passed  through  the  second  column.  As 

well,  CS2  and  F^O  required  a  Chromosorb  104  column  of  6  feet  to  pro¬ 
vide  an  adequate  separation.  When  using  a  column  6  feet  long,  the 
temperature  must  be  at  least  210°F  to  avoid  tailing  of  the  CS2  and  b^O. 
This  higher  temperature  made  it  necessary  to  employ  a  Porapak  Q-S 
column  10  feet  long  to  separate  and  ^S-COS. 

The  actual  analysis  of  all  of  these  gases  was  not  carried  out. 
However,  it  was  verified  that  it  was  possible.  The  Chromosorb  104 
column  passed  N2»  C02S  H2S,  and  COS  through  with  little  affect.  The 
SO2,  CS2,  and  H20  eluted  from  this  column,  in  that  order,  beginning  at 
about  4  minutes.  Meanwhile  the  10  foot  Porapak  Q-S  column  separated 
Ng*  CO2,  COS,  and  H2S  within  3  minutes  from  the  injection  into  the  first 

column.  Therefore  it  would  be  possible  to  use  these  two  columns  to 

separate  the  entire  mixture.  After  the  N2,  C02,  H2S  and  COS  had  eluted 
from  the  two  column  mode,  the  flow  could  be  switched  so  that  the  second 
column  was  bypassed.  The  SO2  >  CS2  and  H2O  would  the  elute  from  the 
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first  column. 

Figure  3.8  shows  a  computer  plot  of  the  N2>  C02,  H2S,  and 
COS  analysis  on  the  two  columns  at  210°F. 

3.6  Other  Process  Measurements 
3.6.1  Temperatures 

All  temperatures  were  monitored  by  stainless  steel  shielded 
i ron-constantan  thermocouples.  The  temperatures  measured  fall  into 
three  categories: 

1.  Temperatures  used  to  calculate  the  kinetic  results 

a.  reactor  wall 

b.  catalyst  bed 

2.  Temperatures  used  as  input  signals  for  automatic  control  devices 

a.  preheat  air 

b.  gas  chromatograph 

3.  Temperatures  measured  for  display  purposes  only 

a.  gas  chromatograph 

b.  preheat  air 

c.  fluidized  sand  bath  (2) 

d.  sulphur  condenser  (2) 

The  millivolt  signals  from  the  thermocouples  were  referenced 
to  ice  point  by  means  of  a  common  cold  junction  immersed  in  an  ice 
bath.  All  temperatures  except  those  for  automatic  control  were  dis¬ 
played  by  a  Honeywell  24  point  Electronik  16  millivolt  recorder.  The 
recorder  was  operated  at  a  span  of  5  millivolts  for  taking  data  to 
provide  maximum  resolution.  The  two  thermocouples  of  interest  in  data 
reduction  were  also  capable  of  being  monitored  by  the  computer  for 
on-line  data  acquisition. 
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3.6.2  Pressures 

A  Foxboro  HF  electronic  consotrol  three  pen  recorder  monitored 
the  10  to  50  mi  Hi  ampere  signals  from  the  feed  and  reactor  absolute 
pressure  transducers.  The  absolute  pressure  of  the  feed  was  measured 
by  a  Foxboro  Model  611  AH  transducer.  A  Statham  pressure  transducer 
was  utilized  to  measure  the  reactor  pressure.  This  particular  trans¬ 
ducer  was  used  due  to  its  ability  to  operate  at  the  fluidized  bath 
temperature.  A  Foxboro  693  AR  EMF  to  current  converter  was  used  to 
make  the  output  of  this  transducer  compatible  with  the  Foxboro  recorder. 

A  Foxboro  625  M  single  pen  controller  utilized  the  differen¬ 
tial  pressure  reading  for  the  purposes  of  controlling  the  reactor  pres¬ 
sure  as  outlined  in  section  3.3.  The  differential  pressure  across  the 
feed  flow  orifice  was  measured  by  a  Foxboro  Model  613  DL  D/P  cell. 

The  IBM  1800  computer  also  had  the  capability  of  monitoring 
these  three  signals.  The  0  to  50  milliampere  signals  were  converted 
to  0  to  5  volt  signals  by  means  of  100  ohm  dropping  resistors. 

3.6.3  Role  of  the  IBM  1800  Computer 

The  computer  had  the  capability  of  monitoring  all  of  the  pro¬ 
cess  measurements  of  interest  simultaneously  with  the  conventional 
devices.  This  parallel  operation  was  introduced  to  allow  an  easy  transi¬ 
tion  to  complete  on-line  data  acquisition  at  a  future  date. 

3.7  Materials 
3.7.1  Gases 

H^S  and  S02  were  obtained  from  Matheson  Co.  with  the  following 
specifications  provided  by  them 
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SO^  99.98%  (anhydrous  grade) 

H^S  99.50%  (C.P.  grade) 

These  gases  were  further  analysed  by  gas  chromatograph  with  the  typical 
results  shown  in  Table  3.1. 


TABLE  3.1 
GAS  PURITIES 


9*1 

so2 


impurities 

h2o 

n2 

h2$ 

n2 

C02 

h20 


estimated 

amount 


slight  traces 
(less  than  0.02%) 


trace 

0.10  mole  % 
0.20  mole  % 


N2  was  obtained  from  Linde  Co.  Ltd.  The  specified  purity  was 
99.996%.  Each  new  bottle  was  analysed  by  gas  chromatography  to  check 
for  02  impurities.  If  any  02  was  detected  the  bottle  was  not  used 
(observance  of  an  02  peak  was  interpreted  as  an  02  content  exceeding  0.05 
mole  percent) . 


3.7.2  Catalyst 

The  bauxite  catalyst  was  obtained  from  Minerals  and  Chemicals 
Phillips  Corporation  of  New  Jersey.  It  was  designated  as  Porocel  Sulphur 
Recovery  Catalyst.  The  manufacturer  provided  the  following  specifica¬ 
tions  . 
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TABLE  3.2 

POROCEL  SULPHUR  RECOVERY  CATALYST 


Volatile  material 

Chemical  composition  (volatile  free  basis) 


A1 2°3 

Fe2°3 

Tl°2 

Sl°2 
insol . 


Surface  area 


215  m. 


6% 


89.0% 


5.0% 


2.8% 


2.6% 


0.6% 


This  catalyst  was  obtained  from  the  same  batch  as  that  used  by  McGregor 
(34). 

3.8  Experimental  Procedures 
3.8.1  General 

The  general  operation  of  the  equipment  was  essentially  the  same 
as  that  of  McGregor  (34)  and  Liu  (31).  The  same  precautions  were  taken 
to  insure  stability  of  the  process  measuring  devices  and  the  thermal 
stability  of  the  reactor  and  fluidized  sand  bath.  As  a  general  rule, 
the  sand  bath  and  other  equipment  were  allowed  a  24  hour  warm  up  period 
after  a  complete  start  up. 

In  order  to  avoid  this  lengthy  stabilization  period,  the  com¬ 
plete  system  was  maintained  in  a  ready  state  between  runs.  The  first 
data  point  then  required  a  45  minute  thermal  stabilization  period  with 
the  initial  pump  start  up  and  upset  of  thermal  stability  caused  by  the 
reaction.  Successive  data  points  could  be  taken  at  different  steady 
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states  with  15  minute  stabilization  periods. 

3.8.2  Initial  Feed  Adjustments 

As  outlined  in  section  3.3  changes  were  made  to  the  existing 
feed  system  to  provide  better  stability.  Before  starting  the  initial 
reaction,  certain  adjustments  were  necessary  to  obtain  a  stable  feed 
flow.  These  adjustments  were  made  while  flowing  through  the  system 
prior  to  turning  on  the  b^S  and  S02. 

First  the  amount  of  feed  bleed-off  was  adjusted,  so  that  at 
the  maximum  feed  rate  to  be  reached  in  the  planned  set  of  experiments, 
a  small  amount  of  bleed-off  always  occurred.  The  actual  pressure  main¬ 
tained  by  the  bleed-off  system  was  checked  by  a  mercury  manometer  to 
insure  that  the  pressure  used  for  the  D/P  cell  calibration  was  main¬ 
tained  (22.5  psia).  The  flow  was  then  adjusted  to  the  approximate 
amount  required  for  the  first  data  point. 

The  reactor  pressure  control  system  was  then  adjusted  to  pro¬ 
vide  the  desired  reactor  pressure.  For  this  adjustment  the  recycle 
pump  was  turned  on.  The  reactor  pressure  was  set  by  a  controller 
utilizing  the  feed  flow  as  an  input.  The  controller  adjusted  an  auto¬ 
matic  valve  to  maintain  the  feed  flow  determined  by  the  controller 
setpoint.  The  reactor  pressure  was  therefore  set  by  simultaneously 
making  adjustments  to  the  manual  feed  flow  valve  and  the  controller 
setpoint  until  the  desired  combination  of  feed  flow  and  reactor  pres¬ 
sure  was  obtained. 

The  final  adjustment  involved  balancing  the  sampling  system 
flows  as  described  in  section  3.4. 

Once  these  adjustments  were  made  the  reactant  gases  were  turned 
on  and  adjusted  to  yield  the  desired  reactant  concentrations.  Since  the 
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reactant  gases  made  up  a  small  part  of  the  total  flow  no  further  adjust¬ 
ments  were  necessary. 

3.8.3  Changing  Steady  States 

Successive  data  points  were  taken  by  changing  steady  states  in 
one  of  two  ways: 

1*  the  feed  flow  to  the  reactor  was  changed  but  the  reactant  concentra¬ 
tion  was  maintained  constant 

2.  the  reactant  concentration  was  changed  and  the  feed  flow  was  main¬ 
tained  constant. 

The  first  method  required  a  manual  change  of  the  feed  flow 
valve  and  subsequent  adjustment  of  the  reactor  pressure  controller  set- 
point  to  obtain  the  desired  reactor  pressure. 

The  second  method  required  only  changes  to  the  appropriate 
reactant  needle  valves. 

Generally,  a  normal  steady  state  change  would  only  introduce 
a  slight  thermal  upset  in  the  system.  The  reactor  temperature  was 
adjusted  to  the  desired  temperature  by  a  slight  change  to  the  setpoint 
of  the  controller  on  the  second  air  preheater.  By  bringing  about  a 
slight  change  in  the  air  temperature  the  desired  reactor  temperature 
could  be  obtained. 

3.8.4  New  Catalyst  -  Cold  Start  Up 

In  order  to  load  a  new  catalyst  charge  or  perform  maintenance 
on  the  reactor  system,  the  fluidized  bath  was  cooled  down  for  6  to  8 
hours.  The  sand  was  drained  from  the  bath  and  the  asbestos  wall  and 
steel  wall  removed.  The  catalyst  holder  was  easily  accessible  by  dis¬ 
connecting  the  appropriate  Swagelok  tube  fittings. 
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The  catalyst  holder  was  emptied  and  thoroughly  cleaned  by 
high  pressure  air.  The  new  pre-weighed  catalyst  charge  was  then  placed 
on  the  holder  screen.  The  catalyst  was  then  overlayed  with  a  layer  of 
3/32  and  1/16  inch  stainless  steel  balls.  Any  fittings  which  had  been 
loosened  were  then  coated  with  an  anti-seizing  agent  (Silver  Goop)  and 
rejoined.  The  recycle  assembly  was  pressure  tested  and  any  leaks  fixed. 

The  sand  bath  was  then  reassembled  and  the  air  turned  on. 

The  three  heat  sources  were  switched  on  and  set  at  the  appropriate 
settings . 

To  insure  reproducible  catalyst  activity,  each  new  catalyst 
batch  was  pretreated  according  to  the  following  procedure: 

1.  was  passed  through  the  catalyst  bed  for  24  hours.  During  this 
period  the  temperature  was  maintained  at  250°C. 

2.  A  mixture  of  6%  in  was  passed  through  the  catalyst  bed  for 
6  hours  at  250°C. 

3.  A  mixture  of  5%  H2S  and  2.5%  S02  in  N2  was  reacted  at  250°C  and  a 
reactor  pressure  of  830  m.m.  Hg  for  2  to  4  hours. 

3.9  Data  Acquisition  and  Reduction 

The  MPX  Operating  System  and  the  DEC  680  Communications  System 
allowed  the  raw  data  to  be  processed  to  kinetic  results  essentially  in 
an  on-line  mode  on  the  IBM  1800  Computer. 

At  the  end  of  each  gas  chromatographic  analysis  the  results 
were  available  immediately  on  the  laboratory  teletype.  The  temperatures 
and  pressures  were  available  from  either  the  strip  chart  recorders  or 
from  the  computer  DDC  files. 

Once  the  feed  composition  had  been  analysed  two  or  three  times 
with  comparable  results,  and  the  feed  flow,  reactor  temperature,  and 
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reactor  pressure  had  remained  stable,  the  gas  chromatograph  was  switched  on 
to  perform  the  product  analysis.  The  product  stream  was  analysed  until 
2  or  3  successive  analyses  indicated  a  steady  state.  This  signalled  the 
end  of  the  data  acquisition. 

The  raw  data  could  then  be  reduced  to  kinetic  results  before  a 
change  to  a  new  steady  state  was  made.  This  procedure  eliminated  incor¬ 
rect  data  points  due  to  human  errors  in  data  acquisition,  since  the 
reduced  kinetic  results  would  generally  indicate  any  gross  errors. 

The  reduction  of  data  was  carried  out  almost  instantaneously 
due  to  the  partitioned  core  feature  of  the  computer.  Under  MPX  the  pro¬ 
gram  was  entered  into  the  background  processing  queue  by  a  simple  tele¬ 
type  request.  If  a  batch  processing  program  initiated  from  the  card 
reader  was  running,  it  was  swapped  to  disk  and  the  background  program 
began  execution.  The  order  of  execution  of  queued  background  programs 
was  according  to  their  order  of  entry  into  the  queue.  This  generally 
resulted  in  execution  starting  within  1  minute  of  the  initial  queue 
request. 

The  data  reduction  program  read  all  of  the  raw  data  input 
through  the  laboratory  teletype.  The  data  was  entered  in  a  format  free 
form  on  request  from  the  program.  The  program  then  processed  the  data 
and  entered  the  raw  and  the  processed  data  into  user  defined  disk  files. 

The  kinetic  results  were  then  output  to  the  teletype  in  tabular  form 
for  quick  and  simple  reference. 

Once  the  reduced  data  was  reported,  the  operator  could  change 
to  the  next  desired  steady  state  or  correct  any  obvious  errors.  The 
data  were  now  available  to  other  coreloads  used  for  manipulation  and 
presentation  of  the  data  in  either  tabular  or  graphical  form.  The 
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program  listings  for  these  coreloads  and  a  numerical  example  of  the 
data  reduction  are  included  in  Appendix  C. 
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IV.  EXPERIMENTAL  RESULTS 


4.1  Experimental  Program 

Reaction  rates  were  measured  at  515°K  (t  1°)  and  at  total 
reactor  pressures  between  830  and  850  mm.  Hg.  The  recycle  reactor 
was  operated  so  that  the  reactant  conversions  were  generally  greater 
than  20  per  cent.  McGregor  (34)  had  taken  data  for  this  reaction  under 
similar  conditions  but  at  conversions  generally  less  than  20  per  cent. 

The  data  obtained  in  this  study  cover  three  general  areas, 
as  follows: 

1.  moderate  conversion  (20-60  per  cent) 

2.  high  conversion  (80-95  per  cent) 

3.  water  addition 

The  moderate  conversion  runs  were  performed  on  two  separate  catalyst 
charges,  both  of  approximately  0.5  grams.  The  water  runs  were  carried 
out  on  a  third  catalyst  charge  of  about  the  same  weight  as  the  first 
two.  The  high  conversion  runs  were  carried  out  on  a  single  catalyst 
charge  weighing  approximately  3.9  grams. 

A  summary  of  the  reaction  conditions  is  presented  in  Table 
4.1.  A  detailed  presentation  of  the  raw  data  and  the  processed  data 
is  given  in  Appendix  C. 

4.2  Bulk  Mass  Transfer  Test 

For  a  recycle  reactor  it  is  possible  to  operate  at  a  suffi¬ 
ciently  high  recycle  rate  to  exclude  bulk  mass  transfer  as  a  rate 
determining  step.  Frequently  during  the  data  taking,  and  at  every 
catalyst  change,  the  recycle  reactor  was  tested  to  ensure  that  the 
recycle  rate  was  sufficient  for  this  purpose.  This  test  was  quite  simple 
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TABLE  4-1 

REACTION  CONDITIONS 


RUN 

CAT 

WT. 

TEMP. 

(K) 

PRESS 
(MM  HG) 

1-01 

0.5091 

515.3 

8  3  4.2 

1-0  2 

0.5091 

515.3 

835.5 

1-0  3 

0.5091 

514.9 

836.2 

2-01 

0 . 5091 

514.7 

829.7 

2-02 

0 .5091 

514.9 

829.7 

2-0  3 

0.5091 

514.6 

834.2 

3-01 

0.5091 

515.1 

829.7 

3-0  2 

0.5091 

514.2 

830.3 

3-03 

0.5091 

514.2 

829.7 

3-04 

0.5091 

514.0 

830.3 

4-01 

0.5091 

515.3 

846.0 

4-02 

0.5091 

515.6 

840.8 

4-0  3 

0.5091 

513.7 

840.8 

4-04 

0 .5091 

516.5 

842.1 

5-01 

0.4946 

516.2 

842.7 

3-02 

0.4946 

515.5 

846.0 

5-03 

0.4946 

515.3 

847.3 

6-01 

0.4946 

514.6 

846.0 

6-0  2 

0.4946 

514.7 

347.3 

6-03 

0.4946 

513.5 

853.9 

7-01 

0.4946 

514.2 

347.3 

7-02 

0.4946 

514.4 

84  7.3 

7-03 

0.4946 

514.2 

847.3 

7-04 

0.4946 

514.2 

847.3 

7-0  5 

0.4946 

514.2 

84  7.3 

7-06 

0.4946 

514.7 

848.6 

8-01 

0.4946 

514.4 

847.3 

8-0  2 

0.4946 

514.4 

847.3 

8-0  3 

0.4946 

514.4 

848.6 

8-04 

0.4946 

514.4 

844.7 

8-05 

0.4946 

515.1 

847.3 

9-01 

0.5091 

515.8 

840.8 

9-0  2 

0.5091 

515.1 

840.8 

9-0  3 

0.5091 

514.9 

840.8 

10-1 

0.5091 

514.2 

834.2 

10-2 

0.5091 

513.8 

834.2 

10-3 

0.5091 

513.8 

835.5 

10-4 

0 .5091 

513.8 

832.3 

10-5 

0.5091 

514.9 

832.9 

11-1 

0 . 5091 

515.3 

839.5 

11-2 

0.5091 

514.9 

836.2 

11-3 

0.5091 

515.3 

834.2 

FEED  COMPOSITION  H2S 


N2 

H2S 

S02 

H20 

CONV. 

89.9 

7.8 

2.1 

0.0 

11.34 

89.8 

7.5 

2.5 

0.0 

12.43 

8  9.2 

6.8 

3.9 

0.0 

15.23 

92.4 

3.8 

3.7 

0.0 

22.75 

92.0 

4.0 

.3.8 

0.0 

17.74 

90.8 

6.6 

2.5 

0.0 

23.74 

92.4 

3 . 8 

3.7 

0.0 

31.17 

92.3 

3.8 

3.7 

0.0 

23.63 

92.3 

3.8 

3.7 

0.0 

17.74 

92.3 

3.8 

3.7 

0.0 

15.09 

92.1 

5.0 

2.7 

0.0 

62.39 

91.6 

5.0 

3.3 

0.0 

6  7.63 

90.6 

5.2 

4.0 

0.0 

64.60 

90.9 

6.3 

2.7 

0.0 

53.14 

93.1 

4.5 

2.3 

0.0 

21.18 

91.2 

6.5 

2.2 

0 . 0 

20.22 

90.2 

7.4 

2.3 

0.0 

14.96 

89.1 

5.1 

5.6 

0.0 

31.43 

84.9 

9.5 

5.4 

0.0 

23.11 

91.0 

7.7 

1.1 

0.0 

11.56 

90.5 

8.2 

1.2 

0.0 

11.56 

89.7 

8.1 

2.0 

0.0 

21.19 

88.7 

7.6 

3.5 

0.0 

28.04 

88.0 

7.6 

4.2 

0.0 

33.93 

66.3 

7.3 

6.2 

0.0 

36.74 

81.3 

8.7 

9.8 

0.0 

41.19 

8  5.5 

4.3 

10.1 

0.0 

53.48 

87.4 

4.0 

8.4 

0.0 

44.86 

91.0 

4.2 

4.6 

0.0 

35.04 

91.8 

5.4 

2.7 

0.0 

24.60 

93.0 

5.4 

1.5 

0.0 

16.33 

92 . 1 

5.3 

2.4 

0.0 

4  0.66 

86.9 

4.9 

2.3 

5.6 

31.07 

81.9 

4.7 

2.2 

11.0 

26.50 

90.8 

6.5 

2.6 

0.0 

21.43 

87.4 

6.9 

2.4 

3.1 

15.83 

84.6 

6.9 

2.4 

5.8 

14.39 

82.8 

6.0 

2.5 

8.4 

11.66 

60 . 3 

6.0 

2.7 

10.9 

8.93 

90.0 

5.2 

4.7 

0.0 

30.17 

87.1 

5.0 

4.5 

3.1 

23.13 

84.9 

4.8 

4.2 

5.9 

17.70 
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TABLE  4-1  (CONT  D) 
REACT  ION  CONDITIONS 


RUN 

CAT 

WT. 

TEMP. 

(K) 

PRESS 

( MM  HG ) 

11-4 

0.5091 

514.9 

832.9 

11-5 

0 . 5091 

514.9 

832.3 

12-1 

0.5091 

515.3 

832.3 

12-2 

0.5091 

515.5 

834.2 

12-3 

0.5091 

515.3 

834.2 

13-1 

3.8684 

515.1 

829.0 

13-2 

3.8684 

515.1 

829.7 

13-3 

3.8684 

514.0 

829.0 

13-4 

3.8684 

515.1 

770.1 

13-5 

3.8684 

515.5 

835.5 

14-1 

3.8684 

515.3 

827.7 

14-2 

3.8684 

515.6 

829.7 

14-3 

3.8684 

515.1 

829.0 

FEED  COMPOSITION  H2S 


N2 

H2S 

S02 

H20 

CON  V  • 

82.5 

4.7 

4.1 

8.5 

14.09 

78.1 

4.5 

3.9 

1  3  •  3 

10.90 

91.9 

5.3 

2.6 

0.0 

21.92 

89.1 

5.1 

2.5 

3.1 

16.83 

8  6*4 

5.1 

2.4 

5.9 

12.85 

95.1 

3.6 

1.1 

0.0 

62.97 

94.8 

3.6 

1.5 

0.0 

84.82 

93.6 

•4.2 

2.0 

0.0 

89.01 

92.8 

4.0 

3.0 

0.0 

93.26 

90.3 

3.9 

5.7 

0.0 

94.31 

93.0 

4.8 

2.1 

0.0 

84.83 

93.1 

4.7 

2.1 

0.0 

81.83 

93.2 

4.6 

2.1 

0.0 

79.26 
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due  to  a  variable  speed  drive  on  the  recycle  pump. 

A  steady-state  conversion  was  measured  at  a  low  circulation 
rate,  and  then  the  circulation  rate  was  increased  stepwise  until  the 
pump  was  operating  at  the  highest  rate.  A  conversion  independent  of 
the  recycle  rate  indicated  that  bulk  mass  transfer  had  no  influence  on 
the  reaction  rate. 

One  such  test,  carried  out  on  a  catalyst  charge  of  0.5091 
grams  and  a  total  volumetric  feed  rate  of  8.410  standard  cubic  feet  per 
hour,  is  included  as  Table  4.2. 

TABLE  4.2 

BULK  MASS  TRANSFER  TEST 

Product  Concentration 
Pump  Setting  N2  H2S  S02 


4.0 

91.31 

6.98 

1.69 

91 .30 

6.99 

1.70 

7.5 

91.30 

6.98 

1.70 

91.32 

6.95 

1.71 

Effect  of  Higher  Water  Concentrations 

The  water  addition  runs  indicated  the  same  retardation  effect 
observed  by  McGregor  (34)  and  Hammar  (22).  A  typical  water  addition 
run  is  illustrated  in  Figure  4.1.  The  highest  conversion  was  measured 
without  water  addition  to  the  feed.  Subsequent  points  were  taken  with 
increasing  amounts  of  water  added  to  the  feed.  (The  feed  compositions 
for  this  run  shown  in  Figure  4.1  are  contained  in  Table  4.1  as  runs 
10-1  to  10-5.)  No  attempt  was  made  to  adjust  the  H2S  and  S02  feed 
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rates  to  maintain  the  reactor  partial  pressures  of  these  components 
constant  throughout  the  series  of  points.  In  all  cases  these  concen¬ 
trations  for  the  points  with  water  addition  were  higher  than  for  the 
points  without.  This  meant  that  the  retardation  effect  of  water  was 
even  larger  than  Figure  4.1  indicates. 

4.4  Determination  of  Sulphur  in  the  Used  Catalyst 

McGregor  (34)  and  Hammar  (22)  both  concluded  that  the  external 
surface  area  of  the  catalyst  was  the  rate  determining  area,  rather  than 
the  total  surface  area  of  the  catalyst.  McGregor  performed  experiments 
with  different  sized  catalyst  pellets  and  demonstrated  that  the  reaction 
rate  was  proportional  to  the  external  surface  area.  Hammar  observed  no 
significant  drop  in  reaction  rate  when  he  lowered  the  reaction  tempera¬ 
ture  to  a  level  where  capillary  condensation  of  sulphur  would  occur. 

To  verify  that  the  pores  of  the  used  catalyst  contained  sul¬ 
phur  a  wet  chemical  determination  was  carried  out  according  to  an 
accepted  procedure  (44).  The  catalyst  had  been  in  the  reactor  for  a 
number  of  runs  but  no  serious  deactivation  had  occurred.  Prior  to  cool¬ 
ing  down  the  reactor  for  removal  of  the  catalyst  charge,  the  reactor  was 
purged  for  two  hours  with  Ng.  The  analysis  indicated  2.0  weight  per 
cent  sulphur. 

4.5  Systematic  Errors  in  the  Data 

Late  in  the  experimental  program  a  serious  error  was  detected. 
It  was  discovered  that  about  30  to  40  per  cent  of  the  measured  conversion 
was  occurring  in  the  sulphur  condenser. 

The  sulphur  condenser  was  used  to  remove  the  sulphur  from  the 
product  stream  to  allow  analysis  by  the  gas  chromatograph.  The  condenser 
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has  been  illustrated  in  Figure  3.4  of  section  4,  chapter  3.  The  tempera¬ 
ture  in  the  condenser  ranged  from  140°C  at  the  inlet  to  110°C  at  the 
outlet.  It  was  absolutely  necessary  to  insure  that  no  water  condensed 
from  the  product  stream  since  liquid  water  catalysed  the  reaction.  The 
condenser  was  designed  to  provide  continuous  operation  by  maintaining 
most  of  the  sulphur  in  the  liquid  phase,  thus  enabling  it  to  flow  by 
gravity  to  a  heated  accumulator  pot. 

The  existence  of  a  reaction  in  the  sulphur  condenser  was 
verified  by  passing  a  dry  stream  of  N2»  H2S,  and  S02  through  the  con¬ 
denser  operated  at  the  normal  temperatures.  The  gas  chromatograph 
analysis  of  the  product  stream  detected  a  water  peak  not  observable 
in  the  feed.  As  well,  a  material  balance  indicated  that  two  moles  of 
H^S  were  consumed  for  each  mole  of  S02. 

To  verify  that  the  observed  conversion  was  not  due  to  the 
homogeneous  reaction  a  series  of  tests  were  carried  out.  By  heating 
the  sulphur  condenser  to  170°C  and  passing  N2  through  it  for  24  hours, 
a  large  portion  of  the  sulphur  was  removed.  After  this  time  the  con¬ 
denser  temperature  was  lowered  to  the  normal  operating  level  and  a  dry 
N2,  H2S,  and  S02  stream  was  passed  through.  A  reaction  was  again 
observed  but  to  a  much  smaller  extent.  By  disassembling  the  condenser 
and  heating  it  at  200°C  for  24  hours,  all  of  the  remaining  sulphur  was 
removed.  No  reaction  was  observed  using  this  clean  condenser.  Earlier 
workers  (34,46)  had  also  found  that  the  homogeneous  reaction  did  not 
occur  at  the  temperatures  used  in  this  study. 

Under  the  right  conditions  a  test  for  homogeneous  reaction 
would  have  caused  the  previous  workers  to  observe  the  catalytic  effect 
of  liquid  sulphur  condensation.  Unfortunately,  McGregor  (34)  tested 
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his  equipment  for  homogeneous  reaction  prior  to  making  any  heterogeneous 
runs.  This  meant  that  no  sulphur  was  present  in  the  sulphur  condenser. 
Taylor  and  Wesley  (46)  concluded  that  the  reaction  did  not  proceed 
homogeneously  because  they  were  able  to  correlate  reaction  rates  to  the 
catalyst  surface  area.  They  only  used  two  different  surface  areas  and 
measured  reaction  rates  at  two  temperatures.  At  neither  temperature 
was  the  ratio  of  reaction  rates  equal  to  the  ratio  of  surface  areas. 
However,  the  average  of  the  ratios  at  the  two  temperatures  agreed  with 
the  ratio  of  the  surface  areas.  (The  individual  points  varied  from  the 
average  by  t  30%. )  Their  conclusion  does  not  appear  to  be  justifiable 
by  their  results.  Also  their  sulphur  condenser  was  designed  to  mini¬ 
mize  the  contact  of  sulphur  and  the  product  gases.  This  likely  mini¬ 
mized  the  reaction  between  H2S  and  S02  in  their  sulphur  condenser. 

4.6  Reaction  of  H2S  and  S02  in  a  Liquid  Sulphur  Medium 

In  order  to  confirm  that  liquid  sulphur  catalysed  the  Claus 
reaction  a  one  pass  reactor  was  used.  The  reaction  vessel  was  of  pyrex 
glass,  therefore,  a  preliminary  test  for  a  possible  reaction  on  the 
walls  was  carried  out.  No  reaction  was  observed  between  140  and  160°C. 

A  500  m.l.  round  bottom  flask  was  employed  as  a  reaction 
vessel.  The  N2,  H2S,  and  S02  mixture  was  bubbled  through  the  liquid 
sulphur  at  a  flow  rate  of  100  m.l.  per  minute.  A  reaction  between  H2S 
and  S02  was  detected  over  the  range  of  140  to  160°C. 

4.7  Summary  of  Tests  for  Reaction  in  the  Sulphur  Condenser 

Table  4.3  presents  a  summary  of  the  various  tests  referred  to 
in  sections  5  and  6  of  this  chapter. 
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TABLE  4.3 

CATALYTIC  EFFECT  OF  SULPHUR  CONDENSER 


h2s 

Vol . 

Condi tions 

Conv. 

(PCT) 

Flow 

Rate 

Feed  Composition 

n2  h2s  so2 

recycle  reactor  and 

S  condenser 

15.09 

7.782SCFH 

92.37 

3.84 

3.78 

full  S  condenser 

8.49 

7.799SCFH 

92.42 

3.84 

3.74 

empty  S  condenser 

<1.0 

7.800SCFH 

92.40 

3.80 

3.80 

clean  S  condenser 

nil  0 

. 5-8.0SCFH 

92.50 

5.00 

2.50 

liquid  S  condenser 

=10.0  100  m. 1 ./min 

92.50 

5.00 

2.50 

4.8  Alternate  Sampling  Methods 

A  sampling  technique  very  similar  to  the  one  used  in  this 
study  is  generally  used  in  industrial  plants  (28,30).  The  one  dif¬ 
ference  is  the  operating  temperature  of  just  slightly  above  1Q0°C. 

This  means  that  the  sulphur  will  not  remain  in  a  liquid  state.  However, 
this  also  means  that  the  sulphur  cannot  flow  to  an  accumulator  pot  and 
implies  that  a  much  larger  condenser  volume  is  required  to  allow  con¬ 
tinuous  operation.  Operation  of  the  condenser  in  this  study  at  tempera¬ 
tures  as  low  as  70°C  cut  down  the  extent  of  reaction  but  did  not 
eliminate  it. 

A  condenser  design  which  minimizes  the  contact  time  of  con¬ 
densed  sulphur  and  the  product  gases  will  eliminate  the  problem. 

However,  such  a  condenser  would  not  be  capable  of  continuous  operation. 

4.9  Conclusions 


1.  The  existence  of  a  reaction  in  the  sulphur  condenser  meant 
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that  the  product  compositions  measured  by  the  gas  chromatograph  were  not 
the  compositions  of  the  recycle  reactor  stream.  Therefore,  the  reactant 
rates  calculated  using  this  data  were  in  error.  For  this  reason,  no 
attempt  was  made  to  fit  the  data  to  rate  equations. 

2.  The  conclusion  reached  by  McGregor  (34)  and  Hammar  (22) 
that  the  external  surface  area  of  the  catalyst  was  the  rate  determining 
area  is  verified  by  the  existence  of  sulphur  in  the  used  catalyst. 

3.  The  existence  of  water  in  the  feed  stream  severely  retards 
the  rate  of  reaction. 

4.10  Recommendations 

To  carry  out  meaningful  kinetic  measurements  an  alternate 
method  of  analysis  is  required.  This  method  of  analysis  will  have  to 
be  capable  of  analysing  the  product  gas  stream  when  it  still  contains 
both  sulphur  and  water.  To  provide  the  flexibility  of  the  present 
system  of  analysis,  it  should  be  capable  of  measuring  the  gas  phase 


composition  of  b^S  and  SO2. 


. 


47 


V.  IBM  1800  MONITORING  OF  THE  GAS  CHROMATOGRAPH 

5.1  Introduction 

The  gas  chromatograph  was  interfaced  to  the  IBM  1800  computer 
to  provide  fast  and  reproducible  feed  and  product  analyses  with  a  mini¬ 
mum  amount  of  operator  intervention.  A  completely  automatic  analysis 
enabled  the  operator  to  devote  more  time  to  the  rest  of  the  apparatus. 

The  analysis  results  were  available  immediately  at  the  end  of  the 
analysis  for  use  in  the  on-line  data  reduction  program  described  in 
Appendix  C.  The  computer  results  were  found  to  be  more  reproducible  than 
a  mechanical  disk  integrator-recorder  system. 

Prior  to  implementing  the  computer  assisted  analysis,  an  exten¬ 
sive  study  of  the  computer  package  was  carried  out.  This  study  examined 
the  logic  and  features  of  the  programs  to  ascertain  their  value  and  to 
correct  any  errors.  Some  features  of  the  package  covered  in  this  study 
were  not  required  for  the  chemical  analysis  of  this  project,  but  were 
included  to  make  the  study  general. 

The  monitoring  system  operated  in  a  complete  real-time  mode; 
that  is,  it  accumulated  and  integrated  the  data  dynamically.  The  com¬ 
puter  was  shared  simultaneously  by  the  following  facilities: 

1.  direct  digital  control 

2.  infrared  monitoring 

3.  process  programs 

4.  two  levels  of  background  processing 

5.  batch  processing 

The  computer  was  operated  by  the  Multiprogramming  Executive  system  (MPX) 
and  was  served  by  a  Digital  Equipment  Corporation  680  Communications 
System.  The  gas  chromatograph  package  was  configurated  to  handle  4 
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instruments  with  a  total  scan  rate  limit  of  32  points  per  second.  Similar 
monitoring  systems  have  been  employed  for  as  many  as  60  gas  chromatographs 
(27). 

5.2  Hardware  Interface 

Linking  a  gas  chromatograph  to  a  process  computer  appears  to  be 
quite  simple.  Chromatographs  produce  a  continuous  analog  signal  easily 
conditioned  to  fall  within  conventional  computer  analog  input  ranges. 

These  signals  are  relatively  free  of  noise  and  the  noise  that  is  present 
is  generally  easily  distinguished  from  actual  peaks. 

The  actual  interfacing  problem  is  complicated  by  the  following 
three  factors: 

1.  Some  method  of  computer-operator  two  way  communication  is  necessary. 

2.  Chromatograph  signals  generally  cover  a  wide  range  of  analog  signals 
during  an  analysis. 

3.  Large  process  computers  are  not  available  on  a  dedicated  basis. 

The  interface  information  flow  used  in  this  project  is  shown  in  Figure 
5.1 . 

The  computer  to  operator  communications  was  by  means  of  a  DEC 
680  Communications  System  and  a  set  of  contacts.  All  of  the  output  and 
error  messages  pertaining  to  a  specific  gas  chromatograph  were  relayed 
by  the  IBM  1800  computer  to  the  designated  teletype  via  the  communica¬ 
tions  system.  The  contact  closure  operated  a  light  and  was  initiated 
by  the  monitoring  software  to  indicate  to  the  operator  that  monitoring 
was  in  progress. 

The  operator  to  computer  communications  link  involved  the  use 
of  the  IBM  1800  process  interrupt  facility,  the  DEC  680  Communications 
System,  and  the  card  reader  on  the  IBM  1800  computer.  The  process 
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FIGURE  5-1 :  INFORMATION  FLOW  FOR  G . C . -COMPUTER  INTERFACE 
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interrupt  facility  of  the  IBM  1800  could  sense  contact  closures  and 
associate  each  set  of  contacts  with  specific  functions.  When  the  labora¬ 
tory  interrupt  button  was  depressed  the  computer  initiated  the  scan  of 
the  particular  analog  signal  associated  with  that  instrument.  The  soft¬ 
ware  obtained  the  pertinent  information  from  the  job  definition  disk  files 
and  scanned  the  signal  according  to  these  specified  procedures.  The  two 
other  forms  of  operator  to  computer  communications  links  involved  the 
definition  and  modification  of  these  job  definition  disk  files.  The 
teletype  system  could  be  used  to  modify  certain  parts  of  the  job  defini¬ 
tion  while  the  card  reader  was  used  to  define  the  complete  job.  A 
further  explanation  of  the  job  definition  is  included  as  Appendix  E. 

The  wide  range  of  analog  signals  from  the  gas  chromatograph 
can  be  handled  in  the  following  three  ways: 

1.  The  analog  signal  can  be  attenuated  to  make  the  highest  possible 
signal  fall  within  the  range  of  the  computer's  analog  input  point. 

2.  The  analog  signal  can  be  selectively  attenuated  at  the  chromatograph, 
so  that  each  peak  falls  within  the  range  of  the  analog  input  point. 

3.  A  programmable  gain  amplifier  can  be  used  to  read  each  separate  peak 
in  an  acceptable  range. 

For  the  chromatograph  analysis  used  in  this  project,  the  first 
method  was  found  to  be  unacceptable.  The  gas  mixtures  being  analysed 
normally  contained  from  90  to  98  per  cent  Ng  which  resulted  in  one  very 
large  peak  (2  volts)  and  a  number  of  relatively  small  peaks  (1-10 
millivolts).  Conditioning  the  large  peak  to  fall  within  a  0  to  20  milli¬ 
volt  range  resulted  in  peaks  small  enough  to  be  seriously  effected  by 
signal  transmission  noise.  The  second  method  was  relatively  simple 
since  the  gas  chromatograph  being  used  had  the  capability  of  changing 
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attentuations  at  timed  intervals,  as  outlined  in  section  3.5.1  of  chapter 
3. 

The  remainder  of  the  signal  to  computer  link  involved  a  multi¬ 
plexer,  (MPLX),  an  amplifier,  (AMP),  and  an  analog  to  digital  converter 
(ADC).  The  multiplexer  enabled  the  computer  to  read  many  different 
analog  input  points  with  the  same  ADC.  The  amplifier  was  used  to  boost 
the  analog  input  point  signals  to  a  common  range  for  the  ADC  (0-5 
volts).  This  enabled  the  ADC  to  read  analog  input  points  of  many  dif¬ 
ferent  ranges.  The  ADC  converted  the  analog  signal  to  a  digital  number. 
These  three  devices  were  shared  by  the  gas  chromatograph  monitoring 
package  with  the  other  programs  on  the  computer  requiring  analog  input 
readings . 

A  detailed  discussion  of  the  real-time  aspects  of  the  package 
with  respect  to  the  other  functions  of  the  IBM  1800  computer  are  beyond 
the  scope  of  this  thesis.  The  computer  was  operated  under  a  partitioned 
core  system  with  the  main  part  of  the  gas  chromatograph  monitoring 
system  core  resident  in  a  designated  partition.  By  operating  on  a 
priority  system  the  computer  was  always  available  to  perform  the  chroma¬ 
tograph  scan  and  required  processing  each  time  interval.  Functions  such 
as  report  generation  were  executed  at  a  lower  level  of  priority  by  a 
completely  separate  core  load  operating  in  another  non-dedicated  core 
partition.  All  communications  between  the  core  loads  were  by  means  of 
disk  files.  The  DEC  680  Communications  System  enabled  the  report 
routines  to  execute  in  a  matter  of  seconds  even  with  a  10  character 
per  second  teletype.  The  report  routine  had  to  wait  in  the  queue  until 
its  turn  came  for  the  non-dedicated  partition  and  then  quickly  read  the 
information  from  disk,  perform  a  few  simple  calculations,  and  then 
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transfer  the  report  to  the  core  buffers  of  the  PDP  8/1  mini -computer 
associated  with  the  communications  system.  The  communications  system 
was  the  only  hardware  busy  during  the  entire  30  to  45  seconds  of 
report  printout. 

5.3  Integration 

Integration  was  carried  out  dynamically  employing  the  rect¬ 
angular  rule.  The  integration  section  of  the  scan  routine  adjusted 
each  area  slice  to  the  base  scan  rate  of  16  points  per  second  to  allow 
for  a  variable  scan  rate. 

5.4  Peak  Status 

The  first  and  second  derivatives  of  the  gas  chromatograph 
signal  were  used  to  determine  the  peak  status.  The  signal  of  an 
actual  peak  is  shown  in  Figure  5.2  and  the  two  derivatives  in  Figures 
5.3  and  5.4.  The  program  used  each  digital  reading  received  from  the 
ADC  in  finite  difference  formulas  to  calculate  the  derivatives  at 
each  point.  The  derivatives  then  indicated  peak  starts,  inflection 
points,  maximums,  and  finishes.  The  logic  was  required  to  allow  for 
new  peak  starts  during  an  existing  peak  and  missed  characteristics. 

A  list  of  the  possible  peak  statuses,  their  meanings,  how 
they  can  be  detected,  and  what  can  possibly  happen  next  is  contained 
in  Table  5.1.  Generally  the  program  logic  observes  the  possibility 
of  a  peak  status  and  then  confirms  it  by  requiring  that  the  deriva¬ 
tives  remain  within  a  certain  range  of  values  for  a  specified  length 
of  time.  The  range  of  values  and  the  length  of  time  are  defined 
by  the  user  during  the  job  definition. 
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FIGURE  5-2 

CHROMATOGRAPH  PEAK-SIGNAL 


FIRST  DERIVATIVE 
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FIGURE  5-3 

CHRDMATDGRAFH  PEAR-FIRST  DERIVATIVE 


SECOND  DERIVATIVE 
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FIGURE  5-4 

CHROMATOGRAPH  PEAK-SECOND  DERIVATIVE 
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The  calculation  of  the  derivatives  were  carried  out  using  a 
least-squares  technique  outlined  by  Savitzky  and  Golay  (43).  The  first 
derivative  at  the  central  point  of  a  13  point  string  was  calculated 
according  to  the  following  formula 

c-j  (dy/dx);  =  3(Y ( 1 0 )  -  Y(4) )  +  2(Y(9)  -  Y(5) )  +  (Y(8)  -  Y(6))  (5.1) 

where: 

c]  =  28  h 

h  =  interval  length 

Rather  than  use  (dy/dx)  the  value  of  c-|(dy/dx)  was  used  to  avoid  the 
unnecessary  repetitive  division.  The  second  derivative  was  calculated 
using  a  simple  difference  between  the  first  derivatives  at  the  10th 
and  the  4tn  points,  as  follows: 

c2(d2y/dx2)  =  c-j  (dy/ dx ) -j Q  -  c-^dy/dx^  (5.2) 

where: 

c2  =  168  h2 
5.5  Baseline 

A  new  baseline  was  determined  each  time  that  the  peak  status 
indicated  a  return  to  the  baseline  had  occurred.  This  is  illustrated 
in  Figure  5.5.  The  first  two  groups  of  peaks  caused  baselines  to  be 
drawn  as  straight  lines  connecting  peak  start  and  peak  finish  points 
(AB  and  CD).  The  third  group  of  peaks  was  complicated  by  a  detected 
drop  below  the  baseline  at  point  F.  This  group  was  divided  into  two 
subgroups;  the  first  with  baseline  EF,  and  the  second  with  baseline  FG. 
The  area  below  the  baseline  was  calculated  as  a  trapezoidal  area 
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FIGURE  5-5:  BASELINE  CALCULATIONS 
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bounded  by  the  initial  and  final  baseline  points,  and  the  electronic 
zero  baseline. 

5.6  Separation  of  Unresolved  Peaks 

The  scan  logic  recognized  the  following  two  categories  of 
unresolved  peaks. 

1 .  shoul der  peaks 

2.  fused  peaks 

A  shoulder  peak  occurred  on  a  major  peak  without  changing  the  sign  of 
the  first  derivative.  A  fused  peak  resulted  in  an  unexpected  change 
in  the  first  derivative  to  increasing  positive  values.  Figures  5.6 
to  5.8  illustrate  these  points.  Figure  5.5  shows  three  sets  of  peaks, 
a  normal  peak,  a  major  peak  with  a  shoulder,  and  a  pair  of  fused 
peaks.  Figures  5.7  and  5.8  show  the  resulting  first  and  second 
derivatives  for  these  peaks. 

When  a  shoulder  was  detected  the  program  began  looking  for 
the  shoulder  end  or  "slice  point".  Figure  5.9  illustrates  the  "slice- 
point".  The  point  where  aY/aX  was  greater  than  or  equal  to  the  first 
derivative  at  the  shoulder  start  was  chosen  as  the  shoulder  end.  The 
area  above  the  line  joining  the  shoulder  start  and  shoulder  end  was 
assigned  to  the  minor  component. 

When  a  group  of  fused  peaks  were  detected  the  total  area 
was  divided  into  the  component  areas  according  to  which  of  four  optional 
ways  was  chosen  at  job  definition.  The  calculation  methods  can  be 
explained  with  reference  to  Figure  5.10.  A  type  4  calculation  therefore 
causes  the  fused  peaks  to  be  treated  as  a  major  peak  and  a  shoulder. 
Calculation  types  2  and  3  ignore  areas  which  should  obviously  be 
included  in  the  analysis. 


DIGITAL  SIGNAL 


60 


FIGURE  5-G 

NORMAL,  SHOULDERED,  AND  FUSED  PEAK  SIGNALS 


FIRST  DERIVATIVE 
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FIGURE  5-7 

NORMAL,  SHOULDERED,  AND  FUSED  PEAK  FIRST  DERIVATIVE 


SECOND  DERIVATIVE 
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FIGURE  5-8 

NORMAL »  SHOULDERED)  AND  FUSED  PEAKS  SECOND  DERIVATIVES 
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FIGURE  5"9:  SHOULDER  AREA  CALCULATIONS 


dY/dX 
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FIGURE  5-10:  FUSED  PEAK  AREA  ALLOCATION 


TABLE  5.2 

AREA  ASSIGNMENT  OF  FUSED  PEAKS 


65 


TYPE 

FIRST  PEAK  AREA 

SECOND  PEAK 

1 

ABCJA 

CDEFJC 

2 

ABCA 

CDFC 

3 

ABCJA 

CDFC 

4 

ABCJA  +  CFJC 

CDFC 

Precautions 

in  Peak  Resolving 

The  method  of  dropping  a  perpendicular  from  the  valley  of 
two  fused  peaks  was  shown  to  be  in  error  by  Kaiser  (29).  The  errors 
that  are  encountered  using  this  procedure  are  illustrated  in  Figure 
5.11.  A  pair  of  poorly  resolved  peaks  were  generated  mathematically 
from  a  Gaussian  formula.  The  solid  line  represents  the  additive  area, 
that  is  the  observed  area,  and  the  dotted  lines  represent  the  true 
component  peaks.  Dropping  a  perpendicular  resulted  in  peak  1  losing 
area  A  and  gaining  area  B.  Peak  2  lost  area  D  and  gained  C.  As  can 
be  observed  in  Figure  5.11  these  areas  are  not  equal.  As  changes  in 
chromatograph  conditions  bring  about  slight  changes  in  the  peak  shapes 
the  relative  sizes  of  these  areas  will  change.  For  unresolved  peaks 
changes  in  peak  shapes  will  have  a  much  larger  effect  on  area 
reproducibility  than  it  will  for  completely  resolved  peaks.  Also  the 
relative  sizes  of  these  exchanged  areas  will  change  with  the  relative 
sizes  of  the  two  peaks.  This  would  tend  to  make  a  non-linear  calibra¬ 
tion  curve  requiring  more  calibration  data  than  a  linear  calibration 


curve. 
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FIGURE  5-11 

AREA  ALLOCATE  ERRORS  WITH  FUSED  PEAKS 
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Figure  5.12  depicts  a  possible  error  that  could  result  from 
a  misinterpretation  of  what  appears  to  be  a  shoulder.  The  additive 
area  of  two  major  peaks  appeared  as  a  major  peak  with  a  small  shoulder. 
The  areas  assigned  to  the  two  peaks  would  be  grossly  in  error. 

5.8  Peak  Identification 

If  the  job  required  that  the  peaks  be  assigned  to  specific 
components,  a  time  band  procedure  was  used.  At  job  definition,  the 
user  specified  a  number  of  time  bands  defined  by  a  starting  time  and  a 
finish  time.  All  peaks  whose  maximum  occurred  within  a  time  band  were 
considered  as  that  component  for  the  purposes  of  calculating  the 
normalized  area.  The  peak  area  of  each  individual  peak  was  still 
reported  so  that  the  operator  could  observe  the  relative  magnitude  of 
the  individual  peaks  or  for  use  in  recalculating  the  normalized 
areas.  Any  peaks  not  falling  into  an  assigned  time  band  were  con¬ 
sidered  as  unknowns.  The  areas  of  the  unknowns  were  not  used  for  the 
calculation  of  the  normalized  area,  but  the  relative  magnitude  of 
the  total  unknown  area  to  the  total  known  area  was  reported  for 
reference  purposes. 

5.9  Noise  and  Filtering 

The  derivatives  were  filtered  using  an  exponential  filter 
in  the  following  form: 

dy.  a  (dyi  +  dy.-1)/2EXP  (5.3a) 

i  th 

where  dy^  =  filtered  value  at  the  i  point 

f.  u 

dyi  =  raw  value  at  the  1  point 
EXP  s  filter  factor 
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TIME (SEC) 

FIGURE  5-12 

TWO  MAJOR  PEAKS  APPEARING  AS  A  SHOUUERED  PEAK 
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This  can  be  rewritten  as  follows: 

2(EXP  '  ])  dy!  =  0.5  dy.  +  0.5  dy!  (5.3b) 

This  form  illustrates  the  weaknesses  of  this  filter  as  follows: 

1.  The  true  filter  factor  has  a  constant  value  of  0.5. 

2.  Values  of  EXP  other  than  1  only  alter  the  magnitude  of  derivatives. 

3.  It  is  impossible  to  not  filter  the  derivatives. 

Tests  reported  in  section  13.1  of  this  chapter  demonstrate  that  filter 
factors  must  be  significantly  smaller  than  0,5  to  have  any  effect  as  a 
noise  filter.  A  description  of  possible  alternatives  to  replace  this 
totally  unacceptable  filter  is  presented  in  this  later  section  also. 

5.10  Resolution  and  Accuracy 

The  analog  to  digital  converter  (ADC)  was  operated  with  14 
bits  of  resolution.  For  a  typical  analog  input  point  of  20  millivolts 
this  resulted  in  0.0006  millivolts  resolution.  The  effect  of  this 
increased  resolution  on  the  integration  accuracy  was  reduced  by  noise 
and  by  errors  of  the  chromatograph  system  other  than  the  integration. 
Baumann  and  Brown  (3)  found  that  for  a  well  designed  electronic  inte¬ 
grator  system,  only  5  per  cent  of  the  total  error  was  attributable  to 
the  integration  system.  A  well  designed  computer  system  would  be 
expected  to  exhibit  a  similar  behavior. 

5.11  Summary  of  Valuable  Features 

There  are  eight  valuable  features  which  helped  to  make  this 
program  package  acceptable: 

1.  Variable  scan  rate. 

As  far  as  making  the  package  applicable  to  general  analyses 
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this  was  the  foremost  feature.  Without  this  feature  an  analysis  with 
a  variety  of  peak  widths  became  impossible  to  do  with  any  accuracy. 

Scan  rates  of  16,  8,  4,  2,  and  1  points  per  second;  and  1  point  every 
2  or  4  seconds  were  available. 

2.  Dynamic  operation 

The  calculation  of  derivatives  and  areas  in  a  dynamic  fashion 
made  it  possible  to  operate  the  system  with  a  minimum  storage  require¬ 
ment.  A  process  computer  shared  between  as  many  different  functions  as 
this  one,  typically  suffers  from  a  shortage  of  time  available  to 
transfer  large  amounts  of  data  to  disk  files.  (A  dedicated  gas  chroma¬ 
tograph  computer  can  function  very  well  on  a  data  storage  basis, 
particularly  if  some  reduction  of  points  occurs  before  storage  on  disk.) 

3.  Dynamic  baseline 

The  baseline  was  determined  each  time  that  the  derivatives 
indicated  a  straight  line  occurred  for  a  specified  length  of  time.  This 
compensated  for  normal  baseline  drifts. 

4.  Variable  report  routine 

At  the  end  of  a  run  a  report  was  produced  on  the  designated 
teletype.  The  information  available  in  the  report  was  tailored  to  the 
needs  of  each  user.  The  following  basic  information  was  available: 

a.  raw  peak  areas 

b.  corrected  peak  areas  (raw  peak  area  -  base  area) 

c.  coordinates  of  peak  starts  and  finishes 

d.  coordinates  of  peak  maximums 

e.  coordinates  of  shoulder  starts  and  finishes 
Normally  the  report  would  contain  the  corrected  peak  areas,  the  percent¬ 
ages  of  total  area,  elution  time,  and  alphanumeric  name  of  each  peak. 
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As  well,  the  percentages  of  total  areas  could  be  adjusted  to  account 
for  component  response  factors.  Each  report  generally  included  certain 
header  information  such  as  date,  time,  chromatograph  number,  and  the 
job  definition  number  that  was  used.  Since  the  report  generation  was 
carried  out  by  a  separate  coreload  coded  in  Fortran,  new  types  of 
reports  can  be  included  easily. 

5.  Operation  as  a  core  resident  coreload 

By  operating  under  a  partitioned  core  system  it  was  possible 
to  maintain  a  core  resident  program.  This  generally  resulted  in  a 
near  instant  response  to  the  closing  of  the  interrupt  contacts  and 
data  acquisition  at  every  specified  interval. 

6.  Ability  to  operate  electrical  contacts 

The  ability  to  open  and  close  contacts  made  it  possible  for 
the  computer  to  supervise  analyses  as  well  as  monitor  them.  During 
this  research  program  a  hardware  device  on  the  chromatograph  was 
employed  to  supervise  the  continuous  analysis  cycle.  A  transition  to 
computer  control  would  be  a  simple  matter;  eliminating  the  need  for 
the  extra  hardware  required  for  each  gas  chromatograph. 

7.  Simple  job  definition 

The  two  simple  job  definition  steps  have  been  described  in 
detail  in  Appendix  E.  Once  the  values  for  the  scan  parameters  were 
selected  as  outlined  in  section  5.12,  the  job  definition  could  be 
completed  without  any  computer  programming  knowledge. 

8.  Use  of  the  DEC  680  Communications  System  and  partitioned  core  for 
report  generation 

The  report  was  generated  immediately  after  a  scan  was  com¬ 
pleted.  In  order  to  insure  that  the  report  generation  on  slow  output 
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teletypes  from  a  mul ti -chromatograph  system  does  not  hinder  the  turn 
around  time  this  type  of  a  system  was  required. 

5.12  Selection  of  Scan  Parameters 

In  order  to  define  a  job  the  analyst  was  required  to  specify 
values  for  seven  scan  parameters.  In  order  to  aid  users  in  choosing 
the  values  of  these  parameters,  a  Fortran  program  was  written  which 
calculated  the  derivatives  at  each  point  for  a  stored  chromatogram. 

By  surveying  the  values  and  behavior  of  the  derivatives  the  scan  para¬ 
meters  could  be  chosen.  The  program,  TEST,  is  documented  in  Appendix 
F. 

The  Gas  Chromatograph  Monitoring  Package  was  modified  so  that 
the  user  was  able  to  store  a  chromatograph  scan  rather  than  process  it 
dynamically  in  the  usual  manner.  When  this  special  option  was  specified 
the  program  package  sampled  the  chromatogram  at  a  scan  rate  of  16 
points  per  second  and  stored  the  data  in  a  disk  file.  During  this 
special  short  term  status  all  other  chromatographs  were  locked  out  of 
the  system.  Once  the  data  accumulation  was  complete  the  system  was 
returned  to  a  normal  status. 

The  data  was  now  available  to  the  off-line  program  TEST.  This 
program  calculated  the  derivative  values  at  each  point.  By  operating 
at  different  scan  rates  the  fastest  scan  rate  which  still  resulted  in 
normal  first  and  second  derivatives  could  be  found.  Then  the  data  at 
this  optimum  scan  rate  could  be  surveyed  to  choose  corresponding  values 
of  I  HIGH ,  ILOW,  I HARD  and  ISOFT  without  difficulty.  As  demonstrated 
in  section  5.9  the  values  of  IEXP1  and  IEXP2  had  no  effect  on  the 
job  except  to  multiply  the  derivative  values  by  constants.  Therefore, 
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TABLE  5.3 

SCAN  PARAMETERS 

PARAMETER  NAME 

PURPOSE 

ISCAN 

determine  scan  rate  by  the  formula: 

pps  =  16/2  **  ISCAN 

IHIGH 

upper  limit  of  deadband  around  derivatives 

now 

lower  limit  of  deadband  around  derivatives 

IHARD 

counts  required  to  confirm  certain 

suspected  statuses 

I  SO  FT 

counts  required  to  confirm  all  other 

suspected  statuses 

IEXP1 

first  derivative  filter  constant 

IEXP2 


second  derivative  filter  constant 


' 


74 


advisable  values  for  them  would  be  1 .  A  few  general  rules  for  the  scan 
parameters  were  as  follows: 

1.  The  scan  rate  was  as  high  as  was  possible  without  hindering  peak 
detection  due  to  noise  propogation  to  the  derivatives. 

2.  IHIGH  was  generally  in  the  range  10  to  30.  ILOW  usually  was 
specified  as  -IHIGH. 

3.  The  value  of  IHARD  was  generally  best  specified  by  referring  to 
the  data  generated  by  the  off-line  program. 

4.  ISOFT  was  generally  chosen  to  be  only  slightly  less  than  IHARD. 

Generally  only  two  types  of  peaks  complicated  the  parameter 
picking.  The  first  of  these  were  extremely  slow  peaks.  The  derivatives 
of  these  peaks  were  of  comparable  size  to  the  baseline  noise  and  were 
not  reliable  for  making  decisions,  particularly  the  peak  finish.  This 
problem  was  rectified  for  all  peaks  encountered  by  including  scan 
rates  of  1  point  every  2  seconds  and  1  point  every  4  seconds.  The 
second  class  of  peaks  involved  extreme  tailing.  Again  it  became  dif¬ 
ficult  to  observe  the  true  peak  finish  due  to  the  noise  effect.  By 
specifying  an  IHIGH  value  slightly  above  the  fluctuations  caused  by  the 
noise  and  an  IHARD  value  large  enough  to  force  the  peak  finish  to  be 
delayed  sufficiently,  a  peak  finish  can  be  detected.  However,  as  with 
all  gas  chromatograph  methods  the  best  results  were  obtained  when 
severe  tailing  was  eliminated  by  good  analysis  design. 

The  optimum  value  of  the  scan  rate  was  influenced  by  two 
conflicting  factors.  For  fast  scan  rates  the  magnitude  of  the  second 
derivative  was  equal  to,  or  exceeded  by,  the  noise  propogated  from  the 
raw  signal.  This  resulted  in  a  complete  masking  of  the  second  deriva¬ 
tive  by  the  noise.  Scan  rates  slower  than  the  optimum  caused  the 
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thirteen  points  used  in  the  derivative  calculation  to  become  too 
widely  spaced.  For  proper  results  the  thirteen  points  should  only 
include  one  inflection  point  or  maximum  at  a  time  (43).  The  first 
point  is  demonstrated  in  Figures  5.13  and  5.14.  Both  of  these  plots 
are  of  the  same  chromatographic  peak,  H^O;  the  derivatives  in  Figure 
5.13  were  calculated  from  a  scan  of  1  point  per  second,  and  the 
derivatives  in  Figure  5.14  from  a  scan  of  2  points  per  second.  The 
second  derivative  at  the  lower  scan  rate  exhibits  the  proper  charac¬ 
teristics  for  a  chromatographic  peak.  The  second  derivative  at  the 
higher  scan  rate  does  not.  The  second  derivative  has  been  partially 
masked  by  noise  which  was  propogated  from  the  raw  chromatographic 
signal.  As  well,  faster  scan  rates  provide  better  integration  accuracy 
and  reduce  the  error  in  locating  peak  maximums. 

5.13  Modifications 
5.13.1  Noise  and  Filtering 

An  ultimate  digital  filter  would  enable  the  programs  to 
detect  all  peaks  using  the  maximum  scan  rate.  Since  the  digital  filters 
included  in  the  package  were  inadequate  and  lacked  flexibility,  various 
other  common  digital  filters  were  tested.  Two  separate  methods  were 
tested,  filtering  the  signal,  and  filtering  the  calculated  derivatives. 
Failing  to  obtain  the  necessary  derivatives  to  justify  a  single  scan 
rate  package,  the  ability  of  various  filters  to  allow  scan  rates 
slightly  above  the  optimum  were  tested.  The  testing  was  carried  out 
on  actual  chromatograph  data  through  the  RAWLD  plotting  facility  docu¬ 
mented  in  Appendix  F.  A  plot  of  the  unfiltered  peak  is  given  in 
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FIGURE  5-13 
H20  PEAK  AT  1  PPS> 


SECOND  DERIVATIVE 
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FIGURE  5-14 
H20  PEAK  AT  2  PPS- 
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Figure  5.15  and  a  plot  of  the  resulting  first  derivative  is  given  in 
Figure  5.16. 

5.13.1.1  Raw  Signal  Filtering 

Four  filters  and  one  combination  of  two  filters  were  tried 
on  the  raw  signal.  The  mathematical  formulations  for  the  filters  are 
given  in  Table  5.4. 


TABLE  5.4 
RAW  SIGNAL  FILTERS 


NAME 

REF. 

FORMULA 

1.  3rc*  Order  Smoothing 

(43) 

Y(7)  =  [-IHY(I)  +  Y  ( 1 3 ) )  + 

9(Y(3)  +  Y (1 1 ) )  +  16(Y(4)  + 

Y(10))  +  2(Y(5)  +  Y(9) ) 

+  24(Y(6)  +  Y(8))  +  25y(7)] 

/1 43 

+■  h 

2.  5  Order  Smoothing 

(43) 

Y(7)  =  [1 10(Y (1 )  +  Y ( 1 3) )  - 

198(Y(2)  +  Y(12) )  -  160(Y(3) 

+  Y(1 1 ) )  +  110(Y(4)  +  Y ( 1 0 ) ) 

+  390 (Y (5)  +  Y(9) )  +  600 {Y (6 } 

+  Y(8))  +  677  Y(7)]/2431 

3.  Spike  Removal 

(27) 

Y(12)  <  Y(13)  if  Y(ll )  <  Y(13) 

Y ( 1 2 )  >  Y (1 3 )  if  Y(1 1 )  >  Y ( 1 3) 

4.  Exponential 

(12) 

Y(7)  =  a  Y(7)  +  (1  -  a)  Y(6) 

5.  Combination 

1.  &  3. 

The  results  are  shown  in  Figure  5.17.  The  best  results  were 
obtained  with  an  exponential  filter  with  a  factor  (a)  of  0.10.  This 
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FIGURE  5-15 
UNFILTERED  SIGNAL 


FIRST  DERIVATIVE 
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FIGURE  5-16 

UNFILTERED  FIRST  DERIVATIVE  (1G  PPS) 
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FIGURE  5-17  A 
13  POINT  3  RD  [HER  FILTER 
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FIGURE  5-17  B 
13  POINT  5  TH  ORDER  FILTER 
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FIGURE  5-17  C 
SPIKE  REMOVAL  FILTER 
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FIGURE  5-17  D 

EXPONENTIAL  FILTER  ON  SIGNAL  ALPHA-O-l 
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FIGLRE  5-17  E 

13  POINT  3  RO  ORDER  AND  SPINE  FILTER 
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represented  a  large  contribution  of  the  past  points  to  the  present 
point,  but  due  to  the  high  scan  rate  of  16  points  per  second  no 
appreciable  peak  distortion  or  lag  occurred.  Figure  5.18  shows  the 
resulting  first  derivative.  The  second  derivative  was  indistinguish¬ 
able  from  the  noise.  It  was  therefore  concluded  that  it  was  not 
possible  to  filter  the  raw  signal  sufficiently  with  these  filters  to 
obtain  a  well  defined  second  derivative  at  a  high  scan  rate. 

5.13.1.2  Derivative  Filtering 

Direct  filtering  of  the  derivatives  yielded  somewhat  better 
results,  at  least  in  the  case  of  the  first  derivative.  The  only  filter 
tried  was  an  exponential  filter  of  the  following  mathematical  form 

(dy/dx)n  =  a(dy/dx)n  +  (1  -  a) (dy/dx)n_-j  (5.4) 

where:  (dy/dx) n_i  =  last  filtered  derivative 

( dy/dx ) n  =  present  raw  derivative 

Results  for  two  values  of  the  filter  factor  (a)  are  plotted  in  Figures 

5.19  and  5.20.  The  filter  factor  of  a  =  0.02  used  to  obtain  Figure 

5.20  was  low  enough  that  some  lag  and  distortion  was  evident.  This 
same  technique  when  used  on  the  second  derivative  yielded  better 
results  than  were  obtained  by  raw  signal  filtering,  but  still  not  good 
enough  to  allow  peak  detection  at  a  high  scan  rate. 

5.13.1.3  Filtering  to  Improve  the  Optimal  Scan  Rate 

The  optimal  scan  rate  was  defined  as  the  fastest  scan  rate 
that  resulted  in  a  well  defined  peak  detection.  By  use  of  filters  the 
optimal  scan  rate  for  a  given  peak  could  be  raised.  Only  one  filtering 
scheme  was  employed  to  accomplish  this.  The  raw  signal  was  spike 


" 

. 

\  '  * 


‘ 


FIRST  DERIVATIVE 


83 


FIGURE  5-18 

EXPONENTIAL  FILTER  ON  SIGNAL  ALPHA=0-1 
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FIGURE  5-13 

EXPONENTIAL  FILTERING  ON  FIRST  DERIVATIVE  ALPHAMERIC) 


FIRST  DERIVATIVE 
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FIGURE  5-20 

EXPONENTIAL  FILTERING  ON  FIRST  DERIVATIVE  ALPHA=0*02 
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filtered  and  the  derivatives  were  exponentially  filtered. 

The  optimal  scan  rate  for  no  filtering  was  found  to  be  1  point 
per  second.  The  first  derivative  of  this  optimal  scan  rate  without 
filters  was  plotted  in  Figure  5.21.  Figure  5.22  shows  the  effect  of  a 
scan  rate  of  2  points  per  second. 

Using  the  filter  scheme  described  previously  with  various 
values  of  the  filter  factor  (a)  at  a  scan  rate  of  2  points  per  second 
the  results  shown  in  Figure  5.23  were  obtained.  The  optimal  value  of 
the  filter  factor  was  found  to  be  0.06.  The  results  for  this  value 
are  shown  in  Figure  5.23c.  Any  lower  values  caused  too  severe  of  a 
repression  of  the  derivative  and  any  higher  values  left  too  much  noise 
to  distinguish  the  peak  end. 

An  attempt  was  made  to  advance  the  scan  to  4  points  per  second. 
It  was  impossible  to  find  a  filter  factor  that  would  provide  sufficient 
filtering  and  not  distort  the  peak  shape  or  introduce  lag. 

Four  important  conclusions  were  reached  as  a  result  of  this 
part  of  the  study. 

1.  A  variable  scan  rate  was  necessary  to  allow  the  scan  routine  to 
handle  the  varying  peak  shapes  that  occur  in  gas  chromatographic 
analyses . 

2.  Filtering  of  the  derivatives  and  raw  data  allowed  the  use  of 
slightly  higher  scan  rates. 

3.  The  peak  finishes  could  be  observed  more  exactly  using  filtered 
derivatives  than  unfiltered  derivatives  even  at  the  optimum  scan 
rate.  This  was  observed  in  Figure  5.23c  (2  pps,  filtered)  and 
Figure  5.21  (1  pps,  unfiltered).  The  second  derivative  of  Figure 
5.23c  gave  a  peak  end  closer  to  the  true  value  observable  in 
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FIGURE  5-21 

OPTIMAL  SCAN  RATE (1  PPS-)  NO  FILTER 
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FIGURE  5-22 
2  PPS*  NO  FILTER 


FIRST  DERIVATIVE 
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FIGURE  5-23  A 

DERIVATIVE  FILTERING  (2  PPS)  ALPHAO-20 


FIRST  DERIVATIVE 


89b 


FIGURE  5-23  B 

DERIVATIVE  FILTERING  (2  PPSJ  ALPHAS  10 
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FIGURE  5-23  C 

DERIVATIVE  FILTERING  (2  PPS)  ALPHA=0>0G 


FIRST  DERIVATIVE 
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FIGURE  5-23  □ 

DERIVATIVE  FILTERING  (2  PFS)  ALPHA=0-02 
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Figure  5.15  than  did  the  second  derivative  of  Figure  5.21. 

4.  None  of  the  filter  schemes  tried  were  as  effectual  or  as  easy  to 
apply  as  reduction  of  scan  rate.  Values  of  filter  factors  capable 
of  sufficient  noise  reduction  were  always  very  close  to  values 
that  caused  lag  and  distortion. 

5.13.2  Application  of  Programmable  Gain  Amplifier 

Due  to  the  noise  effects  it  was  found  that  it  was  not  pos¬ 
sible  to  monitor  peaks  of  extremely  different  size  with  the  required 
reproducibility.  For  this  project  a  hardware  programmer  unit  was  used 
to  apply  varying  attenuations  throughout  the  analysis.  However,  for 
general  use  the  computer  package  should  be  modified  to  take  advantage 
of  the  available  programmable  gain  amplifier.  The  ADC  range  should  be 
a  variable  parameter  specified  by  the  user  at  job  definition  time. 

This  would  enable  the  user  to  change  ADC  ranges  during  the  analysis  in 
the  same  manner  as  scan  rates  or  the  other  variable  parameters.  The 
integration  routine  would  have  to  be  modified  to  correct  for  the  ADC 
range  being  used. 

5.13.3  Parameter  Change  on  Status 

For  this  monitoring  program  and  all  others  familiar  to  this 
author,  parameters  are  varied  on  a  time  basis  only.  This  makes  para¬ 
meter  changes  between  closely  eluting  peaks  a  difficult  matter. 
Fortunately  peaks  that  resolve  close  together  usually  exhibit  a 
similar  general  shape  and  can  be  detected  with  the  same  parameters. 

An  exception  to  this  rule  occurred  with  two  peaks  encountered 

•  xl-  u  qn  and  HoO.  The  optimum  scan  rate  for 

in  this  research  program,  arm 

the  first  peak  (S02)  was  2  points  per  second,  while  the  optimum  scan 
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rate  for  the  second  peak  (H^O)  was  1  point  per  second.  The  first  peak 
was  not  detected  properly  at  1  point  per  second  and  the  second  peak 
was  not  detected  properly  at  2  points  per  second.  The  short  time 
separation  between  the  peaks  made  it  difficult  to  choose  the  time  for 
scan  rate  change. 

A  possible  scheme  for  the  implementation  of  this  feature 
would  require  a  time  band,  the  status,  and  a  default  status.  The 
time  band  would  allow  the  package  to  only  look  for  the  status  change 
for  a  short  period  of  time,  but  a  long  enough  time  to  always  include 
the  change.  The  default  status  would  allow  for  such  things  as  a  start 
of  the  second  peak  without  a  return  to  the  baseline. 

5.13.4  Treatment  of  Unresolved  Peaks 

The  simple  methods  included  in  the  package  were  shown  to  be 
inadequate  for  all  but  very  slightly  fused  peaks  or  true  shoulders. 
Furthermore,  the  information  required  to  apply  these  methods  was 
almost  as  rigorous  as  that  required  to  apply  more  sophisticated  methods 
with  a  stronger  theoretical  basis. 

A  review  of  a  general  method  of  obtaining  information  from 
unresolved  peaks  has  been  compiled  from  some  of  the  many  recent  pub¬ 
lications  on  the  subject.  The  methods  can  be  divided  into  the  2 
following  groups. 

1.  Iterative  fitting  of  the  data  to  obtain  the  true  peak  form. 

2.  On-line  methods  requiring  only  a  small  amount  of  information  about 
the  peaks. 

Most  of  the  methods  of  resolving  peaks  appearing  in  the  literature  were 
off-line  iterative  procedures  (1,2,13,14,19,20,21,23,27).  The  main 
difference  in  these  methods  was  the  functional  form  assumed  for  the  peak 
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shape.  All  of  the  methods  required  a  standard  run  on  the  separate 
component  peaks  to  obtain  their  various  shape  factors. 

A  method  applicable  to  an  on-line  system  has  been  discussed 
by  Hancock  et  al  (23,24).  The  peaks  were  assumed  to  be  represented 
by  bi-Gaussian  functions  with  the  following  form: 


y  =  A  exp  -  [(t  -  b)/c]2 


(5.5) 


where : 


if  t  <  b 
t  >  b 


A  =  amplitude 
c-|  ,C2  =  shape  factors 

b  =  retention  time 

The  parameters  c-j  and  C2  were  determined  by  a  separate  run  on  each  of 
the  components.  If  two  peaks  are  fused  there  will  be  two  maximums  at 
(y-j,t-|)  and  (y  2^2)  ‘  These  maximums  are  the  sums  of  the  individual 
peaks  at  t-|  and  t2- 


y-j  =  A-j  exp  -  [ (t-j -b-j  )cl  -|  ]2  +  A2  exp  -  [ (t^ -b2)/cl 2]2  (5.6) 

y2  =  A-j  exp  -  [(t2-b])c21]2  +  A2  exp  -  [ ( t2“b2 ) /cl 2 ] 2  (5.7) 

With  no  assumptions  the  four  unknowns  b-j ,  b2»  A-j ,  and  A2  are  soluble  by 
employing  the  fact  that  the  first  derivatives  at  the  maximums  were  zero. 
However,  the  problem  is  simplified  to  allow  for  on-line  calculation  by 
assuming  that  t-,  =  b-,  and  t2  =  b2-  This  yields  the  following  two 
equations : 
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y1  =  A1  +  A2  exp  -  [(t|-t2)/cl2]2  (5.8) 

y2  =  A1  exp  -  C(t2-t1 )/c21 J2  +  A2  (5.9) 

The  total  area  measured  for  the  fused  peaks  is  then  divided  as  follows: 

An  (Cl  -I  +  c2 ) 

AR1  =  TTjTcT,  +  C2,)  +  A2(cl2  +  c22)  x  ART  (5J0> 

where 

AR-j  =  area  of  peak  1 

ARy  =  total  area  of  fused  peaks 

Hancock  et  al  evaluated  this  method  in  comparison  with  the 
empirical  methods  of  dropping  perpendiculars  and  using  tangents  for 
shoulders.  This  mathematical  method  was  always  superior  to  the  two 
empirical  methods.  The  mathematical  method  yielded  areas  for  the 
smaller  peak  within  three  to  four  per  cent  of  the  true  area.  Anderson 
(1,2)  has  reported  accuracies  of  t  0.5  per  cent  for  an  iterative  tech¬ 
nique.  Some  improvement  to  the  method  of  Hancock  et  al  (23,24)  could 
result  from  substituting  other  functional  forms  in  specific  analyses. 

The  specific  analysis  would  first  have  to  be  treated  to  find  the  best 
functional  form  and  the  appropriate  parameters. 

5.14  Reproducibility  of  Analyses 

Reproducibility  of  the  integration  device  was  the  main  con¬ 
sideration  in  obtaining  an  accurate  calibration  equation.  In  order  to 
compare  the  reproducibility  of  the  computer  to  a  mechanical  disc 
integrator,  a  sample  of  SC^  in  ^  was  prepared  in  the  calibration 
cylinder  described  in  Appendix  B.  This  well  mixed  sample  was  analysed 
six  times  with  simultaneous  monitoring  by  both  devices.  The 
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reproducibilities  of  the  integrations  were  then  checked  by  calculating 
the  average  absolute  deviations  for  the  area  ratios  of  SO^  to  N2* 
Finally  in  order  to  ascertain  the  precision  of  the  analysis,  the  area 
ratios  were  converted  to  mole  percentages  and  the  value  of  the  error 
was  expressed  in  mole  per  cent  units.  The  results  are  tabulated  in 
Table  5.5.  The  computer  has  a  reproducibility  of  t  0.003  mole  per 
cent  while  the  disk  integrator  has  a  reproducibility  of  t  0.012  mole 
per  cent. 


In  order  to  demonstrate  the  ability  of  the  computer  to  extend 


the  range  of  the  acceptable  accuracy,  a  trace  sample  of  H^S  in  N2  was 
prepared.  The  sample  was  analysed  six  times.  The  disk  integrator  was 
not  sensitive  enough  to  integrate  this  very  small  peak.  The  computer 
detected  the  peak  every  time  with  still  acceptable  reproducibility.  The 
results  are  shown  in  Table  5.6. 


TABLE  5.5 


INTEGRATION  REPRODUCIBILITY  ON  S02  PEAK 


Mechanical 

Integrator 


Computer 


area  ratio 

average  absolute  deviation  of 
area  ratio 
mole  per  cent  S02 
average  absolute  deviation  as  mole 
per  cent 

average  per  cent  error 


0.018506 


0.018695 


+  0.000170 
1.41797 


+  0.000041 
1.43173 


+  0.012 

+  0.85 


+  0.003 

+  0.21 


* 
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TABLE  5.6 

INTEGRATION  SENSITIVITY  ON  H2S  PEAK* 


Computer 

area  ratio 

0.000408 

average  absolute  deviation  of  area  ratio 

t  0.000048 

mole  percent  H^S 

0.12592 

average  absolute  deviation  as  mole  percent 

t  0.0041 

average  percent  error 

t  3.25 

*  not  detected  by  the  disk  integrator 


5.15  Summary  and  Recommendations 

Use  of  computer  monitoring  of  the  gas  chromatograph  leads  to 
increased  reproducibility  and  high  sensitivity.  The  immediate  results 
available  to  the  operator  enabled  the  use  of  on-line  data  reduction 
which  resulted  in  a  substantial  saving  of  time  and  enabled  the  operator 
to  chose  the  steady  states  at  which  data  were  taken. 

The  analysis  of  the  computer  package  exemplified  the  import¬ 
ance  of  a  variable  scan  rate.  Tests  with  the  various  filters  demon¬ 
strated  that  the  best  of  these  filters  can  only  be  used  to  increase  the 
scan  rate  slightly  or  to  improve  the  peak  characteristics  at  the  optimum 
scan  rate. 

It  is  recommended  that  the  following  modifications  be  made  to 
improve  the  package  further. 

1.  Remove  the  present  inadequate  filters  and  replace  them  with  exponen¬ 
tial  filters  on  the  derivatives. 

2.  The  programmable  gain  amplifier  should  be  implemented  to  take  full 
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advantage  of  the  possible  added  resolution. 

3.  The  option  of  "parameter  changes  on  status"  should  be  implemented. 

4.  The  method  of  Hancock  et  al  should  be  tested  to  ascertain  its 
capabilities  with  fused  peaks.  If  the  scheme  appears  useful  it 
should  be  implemented. 
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APPENDIX  A 

CALIBRATION  OF  PROCESS  MEASUREMENTS 

A. 1  Differential  Pressure  Transducer 

Due  to  the  improved  feed  pressure  control  discussed  in 
section  3  of  Chapter  3  it  was  necessary  to  only  calibrate  the  feed 
flow  at  one  feed  pressure.  It  was  found  that  a  feed  pressure  of 
22.5  psia  was  adequate  for  the  range  of  flow  rates  used  in  this  study. 

The  electronic  feed  differential  pressure  transducer  was 
calibrated  against  a  pre-calibrated  dry  test  meter  using  pure  nitrogen. 
A  calibration  equation  of  the  following  form  was  then  fit  to  the  data. 


aQ  +  a-j  x  /PCT  +  a2  x  PCT 


(A.l ) 


where 

F.,  =  volumetric  feed  rate  (SCFH) 

u2 

PCT  =  transducer  output  (per  cent) 

ao’a-|*a2  =  least  squares  fit  parameters. 

This  equation  was  found  to  the  measured  flow  rate  accurately 
in  the  range  of  2  to  100  per  cent  of  the  transducer  output.  Below  2 
per  cent  the  fit  errors  generally  became  greater  than  1  per  cent  with 
respect  to  the  volumetric  feed  flow.  The  results  of  a  calibration  are 
contained  in  Tables  A.l,  A. 2  and  A. 3. 


A. 2  Reactor  Pressure  Transducer 

The  reactor  pressure  transducer  was  calibrated  at  a  tempera¬ 
ture  of  500°K.  McGregor  (34)  had  found  that  shifts  in  calibration  due 
to  temperature  changes  were  insignificant  at  elevated  temperatures. 
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TABLE  A • 1 


EXPERIMENTAL  RESULTS  FOR  D/P  CELL  CALIBRATION 


TIME  FOR  1 

ATMOSPHERIC 

FOXBORO 

RECORDER 

IBM  1800 

CUBIC  FOOT 

PRESS 

TEMP 

D/P  CELL 

ABS  PRESS 

COMPUTER 

OF  GAS  FLOW 
(MINUTES ) 

(MM  HG) 

(DEG  F) 

(  PCT  ) 

(PCT) 

(PCT) 

36.000 

708.0 

77.7 

3.00 

30.00 

3.36 

22.667 

708.0 

78.0 

7.30 

30.00 

7.62 

14*042 

708.0 

78.2 

18.20 

30.00 

18.27 

10.633 

708.0 

78.8 

32.30 

30.00 

32.21 

8.973 

708.0 

79.5 

45.10 

30.00 

44.90 

8.143 

708.0 

79.6 

54  •  40 

30.00 

54.02 

7*080 

708.0 

80.0 

71.30 

30.00 

70.93 

6.070 

708.0 

8  C  •  0 

96.40 

30.00 

95.82 
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TABLE  A. 2 


CALCULATED  RESULTS  FOR  D/P  CELL  CALIBRATION 


RUN 

FEED 

FLOW  METERING 

SYSTEM 

FLOW 

NO. 

ABS  PRESS  D/P  CELL 

COMPUTER 

RATE 

(PSIA) 

SORT ( PC  T ) 

SORT ( PCT ) 

(SCFH) 

1 

20.62 

1.31 

1 . 38 

1.50 

2 

20.62 

1.64 

1.66 

2.38 

3 

20.62 

2.06 

2.06 

3.84 

4 

20.62 

2.38 

2.38 

5.07 

5 

20.62 

2.39 

2.58 

6.00 

6 

20.62 

2.71 

2.71 

6.61 

7 

20.62 

2.90 

2.90 

7.60 

8 

20.62 

3.13 

3.12 

8.86 
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TABLE  A. 3 


D  •  P •  CELL  CALIBRATION  EQUATION 
AUG  29/71  .034  IN.  ORFICE 


X=SQRT (PCT ) 
V  =  SCFH 


THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ARE 


AO  = 

-0.04202 

A 1  = 

0 . 89619 

A2  = 

0.00104 

REGENERATED 

DATA 

X  MEASURED 

Y  OBSERVED  Y 

CALCULATED 

PCT  ERROR 

1.732 

1.501 

1.513 

0.789 

2.701 

2.383 

2.387 

0.151 

4.266 

3.845 

3.800 

1.185 

5.683 

5.073 

5.085 

0.233 

6.715 

6.004 

6.023 

0.327 

7.375 

6.614 

6.624 

0.153 

8.443 

7.602 

7.600 

0.030 

9.818 

8.867 

8.858 

0.104 

VARIANCE 

STANDARD  DEVIATION 
MAXIMUM  PCT  ERROR 


0.000421 

0.020540 

1.185642 
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TABLE  A. 4 


REACTOR  ABSOLUTE  PRESSURE  TRANSDUCER  CALIBRATION 


X  =  FOXBORO  CHART  RECORDER  PERCENT 
Y=MM.  HG. 


THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ARE 


AO  = 

716.47387 

A 1  = 

6.54523 

X  MEASURED 

REGENERATED 

Y  OBSERVED  Y 

DATA 

CALCULATED 

PCT  ERROR 

5.500 

751.800 

752.472 

0.089 

8.300 

771.600 

770.799 

0.103 

21.500 

857.100 

857.196 

0.011 

27.800 

898.400 

898.431 

0.003 

VARIANCE  =  0.368025 

STANDARD  DEVIATION  =  0.606651 

MAXIMUM  PCT  ERROR 


0.103797 
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The  transducer  was  calibrated  against  a  mercury  manometer  by 
closing  the  reactor  product  outlet  line  and  varying  the  setpoint  on 
the  feed  pressure  controller.  The  reactor  pressure  was  then  correlated 
to  the  transducer  output  by  a  least  squares  fit  of  the  following  form: 


P  =  a-j  x  PCT  +  aQ  (A. 2) 

where  P  =  reactor  pressure  (mm  Hg) 

PCT  =  transducer  output  (per  cent) 
a0,al  =  parameters 

A  typical  set  of  calibration  data  and  the  resulting  least  squares  fit 
follow  in  Table  A. 4. 


A. 3  Water  Feeder 

The  syringe  pump  was  calibrated  over  the  range  of  interest  by 

a  gravimetric  procedure.  A  small  glass  weighing  bottle  with  a  capillary 

tube  stopper  was  used  to  collect  the  sample.  The  syringe  outlet  just 

fit  the  capillary  stopper  to  reduce  evaporation  effects.  The  weight  of 

the  water  collected  over  a  timed  interval  was  converted  to  the  volume 

* 

of  water  taking  into  account  the  effect  of  temperature  on  density  .  A 
calibration  equation  of  the  following  form  was  then  fit  to  the  data. 


vh2o  =  ai  x  pct  +  ao  (a.  3) 

where  Vu  n  =  volumetric  feed  rate  (ml /hr) 

H  2^ 

PCT  =  pump  setting  (per  cent) 
a-j  ,ag  =  fit  parameters 

Table  A. 5  is  a  least  squares  fit  of  the  temperature-density  correlation 
for  water.  Table  A. 6  is  the  fit  of  the  calibration  data. 

* Perry ,  J.H.,  Chemical  Engineers  Handbook  (New  York:  McGraw-Hill  Book 
Company,  1963)  p.  3-70. 
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TABLE  A • 5 


DENSITY  OF  WATER  AS  A  FUNCTION  OF  TEMPERATURE 


X= TEMPERATURE  (DEG.  F) 
Y=DENS I TY  OF  WATER  (GM/CC) 


THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ARE 


AO  = 

1.00597 

ii 

rH 

< 

-0.00011 

X  MEASURED 

REGENERATED 

Y  OBSERVED  Y 

DATA 

CALCULATED 

PCT  ERROR 

60.000 

0.999 

0.999 

0.008 

64.000 

0.998 

0.998 

0.002 

68.000 

0.998 

0.998 

0.002 

72.000 

0.997 

0.997 

0.000 

76.000 

0.997 

0.997 

0.019 

80.000 

0.996 

0.996 

0.016 

VARIANCE 

STANDARD  DEVIATION 

MAXIMUM  PCT  ERROR 

=  0.000000 

=  0.000120 

=  0.019002 
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TABLE  A. 6 


CALIBRATION  OF  WATER  FEED  PUMP  SEPT  23/71 


X=PERCENT  READING  (1/100  SCALE) 

Y  =  CC  H20/HR 

THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ARE 
AO  =  0.15581 

A 1  =  0.52044 


REGENERATED  DATA 

X  MEASURED  Y  OBSERVED  Y  CALCULATED  PCT 


10.000 

5.468 

5.360 

17.500 

9.213 

9.263 

25.000 

13.026 

13.166 

40.000 

21.056 

20.973 

VARIANCE 

=  0.013650 

STANDARD  DEVIATION 

=  0.116834 

ERROR 

1.976 

0.544 

1.081 

0.394 


MAXIMUM  PCT  ERROR 


1.976511 
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MAINLINE  FDCAL 


MAINLINE  FDCAL 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


*******  *****************#**•#•-**##*-**.#.#*#**.*#.*#*##*#.**** 


*  * 

*  MAINLINE  FDCAL  * 

*  * 

*  THIS  PROGRAM  WAS  WRITTEN  TO  DOCUMENT  THE  * 


*  CALIBRATION  DATA  TAKEN  ON  THE  FEED  D/P  CELL.  REDUCE* 

*  THE  DATA  TO  USEFUL  UNITS  OF  FLOW  AND  MEASUREMENT  * 

*  AND  PUNCH  THE  CALCULATED  RESULTS  OUT  ON  CARDS  TO  * 

*  PROVIDE  INPUT  FOR  A  LEAST  SQUARES  FITTING  PROGRAM  * 


*  INPUT  DATA  * 

*  N  NUMBER  OF  CALIBRATION  RUNS  * 

*  NPAGE  -  PAGE  NUMBER  OF  FIRST  PAGE  OF  OUTPUT  * 

*  NCOPY  -  NUMBER  OF  COPIES  OF  OUTPUT  DESIRED  * 

*  NR  -  RUN  NUMBER  * 

*  A (  I  » 1  )  -  TIME  REQUIRED  FOR  ONE  CU  FT  OF  GAS  * 

*  FLOW  (MIN)  * 

*  AC  1*2)  -  ATMOSPHERIC  PRESSURE  (MM  HG )  * 

*  A (1.3)  -  ROOM  TEMPERATURE  (DEG  F)  * 

*  A (  I  » 4 )  -  RECORDER  READING  (D/P  CELL)  * 

*  A  (  I  » 5  )  -  RECORDER  READING  (ABS  PRESS)  * 

*  A ( 1*6)  -  COMPUTER  READING  (D/P  CELL)  * 

*  A ( I » 7 )  -  DRY  TEST  METER  CALIBRATION  FACTOR  * 

*  * 


******************-**■**•******************************** 

DIMENSION  A (40.7  )  .NR (40)  .FLO (40) 

READ ( 5  »  9  )  N  .NPAGE  .NCOPY 
9  FORMAT (3 15) 

DO  2  I  =  1  ♦  N 

READ (5.1)  NR ( I ) . ( A ( I . J ) * J=1 »7 ) 

2  CONTINUE 

1  FORMAT ( I5.5X.7F10.5) 

DO  5  NC-l.NCOPY 
WR I TE ( 6 . 3  )  NPAGE 

3  FORMAT (  '  1  '  »  ////66X  .  ' A- '  .  12  . ////// 

1  35X . 'TABLE  A. 13* ///  .1SX 

* ♦ ' EXPER IMENTAL  RESULT 

IS  FOR  D/P  CELL  CALIBRATION'/  ) 

WR I TE ( 6 . 4 ) 

4  FORMAT (  lOX.'TIME  FOR  1  ATMOSPHERIC  FOXBORO 

*  RECORDER  IB 

2M  1800'/  10X . 'CUBIC  FOOT  PRESS  TEMP  D/P  CELL 

*  ABS  PRESS  CO  , 

3MPUTER'  /  lOX.'OF  GAS  FLOW  (MM  HG )  (DEG  F)  (PCT) 

*  (PCT) 

4 ( PC  T )  '/  11X.'  (MINUTES)  '/) 

DO  5  I  =  1  *  N 
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MAINLINE  FDCAL  ...(CONT'D) 

6  FORMAT (13X*F6.3*5X»F5.1*5X*F4.1*4X*F5.2»6X*F5.2»5X 

*  *  F  5  •  2  ) 

NPAGE=NPAGE+1 
DO  7  NC=  1 *  NCOPY 
WRITE (6  >20 )NPAGE 

20  FORMAT (  ’  1  '  *  / / / / * 66X * • A- '  ,  I  2  * / / / / ) 

WR I TE ( 6  *  10  ) 

10  FORMAT  (  /// *32X »' TABLE  A. 14’//  15X *' CALCULATED  RESULTS 

*  FOR  D/P  CEL 

1L  CALIBRATION’/) 

WR I TE ( 6  *  1 1 ) 

11  FORMAT ( 16X* ' RUN  FEED  FLOW  METERING  SYSTEM  FLOW" 

*/  16X  * ' NO • 

1 ABS  PRESS  D/P  CELL  COMPUTER  RATE’/  22X  * '  ( PS  I  A ) 

*  SQRT(PCT)  SQ 
2RTIPCT)  (SCFH) » /) 

DO  7  I  =  1  *  N 

TPCOR= A (1*2)/ 760. *5 20. /(A(I *3 )+460. ) 

FLO ( I  ) =  TPCOR* 1 • / A ( I *1 ) *60.*A( I *7 ) 

A (  I  * 4 ) = A (  I  »4)**0.5 
A (  I  *  6 ) = A ( I »6)*^0.5 
A ( I *5 ) =A ( I *5 )*C. 25+15. 

WR I TE ( 6  *  8  )  NR( I ) *A( I »5 ) *A( I >4) >A( I »6)  *FLO  (I) 

7  CONTINUE 

8  FORMAT ( 14X *  15 »3X *F5.2 *  IX *3 ( 5X »F5«2 ) ) 

READ ( 5  »  44 )  I 

44  FORMAT  (ID 

GO  TO  ( 14  »40  )  *  I 
14  CONTINUE 

WR I TE ( 5  *  102  ) 

102  FORMAT (’ FDCAL  OUTPUT  FOR  LST .  SQ* ' ) 

DO  12  1=1 *N 

12  WRITE (5 *100)  A (  I  *4  )  *FLO ( I )  »NR ( I ) *  A ( I  *  5 ) 

DO  13  I  =  1  *  N 

13  WR I TE ( 5  » 100  )  A ( I *6 ) *FLO ( I )  *NR ( I ) *A ( I  *  5 ) 

100  FORMAT (2F10*5*40X»  I3»2X*F5.2) 

40  CONTINUE 
CALL  EXIT 
END 
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MAINLINE  LEAST 


MAINLINE  LEAST 


C 

C 

C 


# 

* 


MAINLINE  LEAST 


#• 

* 


c 

c 

THIS  PROGRAM 

WAS  WRITTEN  FOR  FITTING  A  MAXIMUM  OF 

* 

* 

c 

* 

50  DATA  POINTS  TO  POWER  SERIES  TYPE  POLYNOMIALS  OF 

* 

c 

* 

ANY  ORDER  UP 

TO  A  MAXIMUM  OF  FOURTH  DEGREE. 

* 

c 

* 

INPUT  DATA 

* 

c 

■K 

NCASE  - 

NUMBER  OF  SETS  OF  DATA 

* 

c 

* 

NCOPY  - 

NUMBER  OF  COPIES  OF  OUTPUT  DESIRED 

c 

* 

N 

NUMBER  OF  DATA  POINTS 

* 

c 

M 

DEGREE  OF  POLYNOMIAL 

* 

c 

* 

NTL 

NUMBER  OF  CARDS  FOR  TITLE 

* 

c 

# 

NPAGE  - 

PAGE  NUMBER  OF  OUTPUT 

* 

c 

* 

NPLT 

DATA  REGENERATION  FLAG 

* 

c 

* 

.  .  ^-REGENERATE  GIVEN  DATA  ONLY 

* 

c 

* 

.  .  .  1-REGENERATE  GIVEN  DATA  PLUS  20 

# 

c 

* 

INTERMEDIATE  POINTS 

* 

c 

* 

DES ( K )  - 

ALPHANUMERIC  DESCRIPTION  OF  THE  TITLE 

# 

c 

* 

XNAME  - 

ALPHANUMERIC  DESCRIPTION  OFX 

* 

c 

* 

YNAME  - 

ALPHANUMERIC  DESCRIPTION  OF  Y 

* 

c 

* 

X  (  I  ) 

INDEPENDENT  VARIABLE 

# 

c 

* 

Y  (  I  ) 

DEPENDENT  VARIABLE 

* 

c 

* 

* 

#*#**■**#*#**#  #•*•**  *#**  ##**tt****tt*****  **********  ¥e  •#*****■* 


DIMENSION  X ( 50 )  *Y(50) *A(50*5) *P (20*20)  *V(20)  * Z ( 20  )  ♦ 
1 DES ( 1 0  *  1 5  )  *  SNAM ( 5 ) » XNAME ( 100 )  * YNAME ( 100 ) 

DATA  SNAM/ 1  AO  = ♦  •  • A 1  =‘*‘A2  ='*'A3  =‘*'A4  = ' / 

READ (5*1)  NCASE ♦ NCOPY 
DO  9  NC  =  1 *NCASE 

READ ( 5*1)  N  *M  »NTL *NPAGE  »  NPLT *  I  DEC 
I DEC= I DEC  +  1 
1  FORMA T ( 6  I  5 ) 

DO  11  NT= 1 » NTL 

11  READ (5*12)  (DES(NT*K) *K=1*15) 

12  FORMAT (15A4) 

READ  (5*20)  ( XNAME ( I )  »  I  =  1  ♦  1 5 ) 

20  FORMAT  (15A4) 

READ  (5*21)  (YNAME(j)  *  J  =  1  *  1 5 ) 

21  FORMAT  (15A4) 

13  FORMAT ( 10X* 15A4/ ) 

MM=M+ 1 

DO  2  I  =  1  *  N 

2  READ ( 5*3)  X ( I ) »  Y ( I ) 

3  FORMAT ( 2F10. 5 ) 

DO  4  I  - 1  *  N 
DO  4  J= 1 >MM 
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MAINLINE  LEAST  • • • ( CONT • D ) 

4  A ( I » J ) =X ( I ) ** ( j-1 ) 

DO  5  1=1 »MM 

DO  5  J= 1  *  MM 
P (  I  * J  )  =0 • 

DO  5  K= 1 » N 

5  P( I»J)=P(I*J)+A(K*I)*A(K»J) 

DO  6  1=1 >MM 

V(  I  ) =0. 

DO  6  J= 1  * N 

6  V (  I ) =V ( I ) +Y  <  j ) *A ( J  » I ) 

GO  TO ( 1 8  » 19  )  *  I  DEC 

18  CALL  GAUSS ( P , V.MM »Z ) 

GO  TO  22 

19  CALL  OR IGN ( P , V,MM .Z ) 

22  DO  16  I COP= 1  * NCOP Y 

WR  I  TE  (  6  *  10  ) 

10  FORMAT ( » 1' ,////) 

DO  17  I  =  1  >  NTL 

17  WRITE(6*13)  (DES(  I  *<) *K  =  1 *15) 

WRITE  (6,30)  (XNAME ( I )  ,  1  =  1  *15  ) 

30  FORMAT  ( / / / » 1 2X , 1 3 A4 ) 

WRITE  (6,31)  ( Y  NAME ( J )  » J  =  1  *  15 ) 

31  FORMAT  ( 1 2X  » 1 5A4 ) 

WRITE (6 ,8  ) 

8  FORMAT (  / / / f 1  OX  •  'THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ' 
1  » ' ARE ' /  ) 

DO  13  1=1, MM 

15  WR I TE ( 6  * 7  )  SNAM (  I  )  ,Z( I ) 

7  FORMAT ( 15X,A4,F11. 5/) 

16  CALL  REGEN ( X , Y ,Z ,MM»N ) 

IF(NPLT)  9,9,14 

14  CALL  POLYT  (X»Z,N»MM) 

9  CONTINUE 

WR I TE ( 6  *99 ) 

99  FORMAT ( ' 1 ' ) 

CALL  EXIT 
END 
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SUBROUTINE  ORIGON 
SUBROUTINE  ORIGON 

Q  *********  ********************************************* 


C  *  * 

C  *  SUBROUTINE  ORIGON 

C  *  * 

C  *  THE  FUNCTION  OF  THIS  SUBROUTINE  IS  TO  SOLVE  THE  * 

C  *  SET  OF  EQUATIONS  A*X  =  6  USING  GAUSSIAN  ELIMINATION  * 

C  *  AND  BACK.  SUBSTITUTION  ROTATING  ABOUT  THE  ELEMENT  * 

C  *  OF  MAXIMUM  MODULUS.  * 

C  *  * 


****************************************************** 


SUBROUTINE  OR  I GN ( A » R * N ♦ X ) 

DIMENSION  A ( 20  »20 )  »R ( 20 )  »X ( 20  ) 

X ( 1 ) =0. 

I F ( N-2 ) 1  *  1  *  2 

1  WRITE (6 *100) 

100  FORMAT ( 10X* ' LST  SQ  THRU  ORIGON  INVALID  FOR  ORDER= 1 ' ) 
GO  TO  500 

2  M=N~1 

DO  11  J  =  2  *M 

s=o  • 

DO  12  I =  J  ♦  N 
U=  ABS ( A ( I »  J )  ) 

IF(U-S)  12*12*112 
112  S=U 
L=  I 

12  CONTINUE 

IF(L-J)  119*19*119 
119  DO  14  I = J  *  N 
S  =  A ( L  *  I  ) 

A  (  L  *  I  )  =  A  (  J  *  I  ) 

14  A ( J  *  I  ) -S 
S  =  R ( L  ) 

R  {  L  )  =  R  (  J  ) 

R  (  J  )  =S 

19  I F (  ABS ( A ( J * J ) ) -1 • E-30 )  115*115*15 

115  W  R I T  E ( 6  *  3 ) 

GO  TO  500 

15  MM= J+ 1 

DO  11  I =MM  *  N 

I F (  ABS ( A ( I  * J )  ) “1 -E-30 )  11*111*111 
111  S  =  A ( J  »  J ) / A ( I  *  J  > 

A (  I  * J  )=0.0 
DO  16  K  =  MM  *  N 

16  A ( I *K ) =A ( J »K ) -S*A ( I »K ) 

R (  I )  =  R  (  J  ) “S*R ( I  ) 

11  CONTINUE 
DO  17  K  = 1  *  M 
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SUBROUTINE  ORIGON 


. .. ( CQNT  *  D ) 


I =N+1-K 
S  =  0.0 

I F (  I-M)  117  *17*117 
117  MM= I + 1 

DO  18  J  =  MM  >  N 
18  S  =  S+A ( I ♦ J ) *X ( J) 

17  X (  I )  =  ( R ( I ) -S ) /A (  I  >  I  ) 

500  RETURN 

3  FORMAT  (1H  ♦ 'MATRIX  SINGULAR') 
END 


c  1  -A 
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I+I*MM  VII 


/ 1 N  81  oa 

( L ) X* ( u *  I ) A+e*2  91 

(  '  A  JL  j-  1c  X  I  VT;  '  ♦  hi  )  A  'f.  £ 


(  I  ♦  I  )  AN  U-<  2  )>•)*(  I  )  X  VI 


A-  16 


SUBROUTINE  REGEN 
SUBROUTINE  REGEN 


C  *  * 
C  *  SUBROUTINE  REGEN  * 
C  *  * 
C  *  THIS  SUBROUTINE  REGENERATES  THE  GIVEN  DATA  AND  * 
C  *  CALCULATES  THE  VARIANCE  AND  STANDARD  DEVIATION  OF  * 
C  *  THE  FIT.  * 

Q  *  # 


Q  ***■■#•*#*■«■#  *#**##***#***##**•**  ***•#***#•*■)!-**-•»■'«■*•■«■ 


SUBROUTINE  REGEN ( X . Y » Z » MM » N ) 

DIMENSION  X ( 5 0 )  #Y(50) *2(20) 

WRITE (6  *1  ) 

1  FORMAT ( // / t  29X  * 'REGENERATED  DATA ' //10X * ' X  MEASURED'  »5X 
lf'Y  OBSERVED'  *5X* 'Y  CALCUL ATED '  *  3X  .  ' PC T  ERROR'*/) 

VAR  =  0  * 

HI  =0. 

DO  2  1=1 *N 
CAL=0 • 

DO  3  J= 1  *  MM 

3  CAL  =  CAL  +  Z( J)*X( I  )**( J-l ) 

CAT=ABS ( Y ( I ) -CAL ) 

PCE=CAT/Y ( I )*100. 

VAR=VAR+CAT**2 

IF ( H I -PCE ) 4  >  4  *  2 

4  H I =PCE 

2  WR I TE (6*5)  X (  I  )  * Y (  I  ) »CAL *PCE 

5  FORMAT  (  9X  *4 ( F10  •  3  »  5X ) / ) 

VAR=VAR /  ( N-l ) 

DEV=VAR**0. 3 

WR I TE ( 6  *  6  )  VAR  *  DEV  *  H I 

6  FORMAT (//* 10X ' VARIANCE  = ' * F10 • 6//10X * 

1 ' STANDARD  DEVIATION  = '  * F  10 • 6 / / 10X * 

2'MAXIMUM  PCT  ERROR  ='»F1Q.6) 

RETURN 

END 
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SUBROUTINE  POLYT 
SUBROUTINE  POLYT 

C  #****###****#*■#■***  -if*********************************** 


c  *  * 

C  *  SUBROUTINE  POLYT  * 

C  *  * 

C  *  POLYT  SUPPLIES  REGENERATED  DATA  AT  POINTS  INTER-  * 

C  *  MEDIATE  TO  THE  GIVEN  DATA*  * 

Q  #  * 


Q  ******************  ****#*■****#**■#•*■***#*•«■**•**■)«■*•#*** 

SUBROUTINE  POLYT ( X >Z >N *MM ) 

DIMENSION  X ( 50 )  *  Z ( 20 ) 

WR I TE ( 6  *  1 ) 

1  FORMAT (' 1 ' *///*32X» 'PLOT  TEST  DATA'//25X'X  CALCULATED ' 
*  *4X 

lt»Y  CALCULATED'/) 

XMAX  =  0 • 

XM I N=99999 • 

DO  2  I  =  1  *  N 

IF ( XMAX-X  (  I  )  )  3*3*4 

3  X  M  A  X  =  X  (  I  ) 

4  I  F ( X (  I ) -XM I N )  5*5*2 

5  XM I N=  X  (  I  ) 

2  CONTINUE 

DELX= ( XMAX-XMIN ) /20. 

X  Y  =  X  M  I  N 
DO  6  1=1*20 
CAL=0 • 

DO  1 5  J= 1  *  MM 

15  CAL=CAL+Z (J) #XY** ( J-l ) 

WR I TE ( 6  *  7  )  XY.CAL 
7  FORMA T(24X*2(F10*3»5X) ) 

6  XY=XY+DELX 
RETURN 
END 
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SUBROUTINE  GAUSS 
SUBROUTINE  GAUSS 

C  ***********  *-*■&#■&•#•■«■##  *  *  *  *  *  ********  -a-**##*  *************** 


C  *  * 

C  *  SUBROUTINE  GAUSS  * 

C  *  * 

C  *  THE  FUNCTION  OF  THIS  SUBROUTINE  IS  TO  SOLVE  THE  * 

C  *  SET  OF  EQUATIONS  A*X  =  B  USING  GAUSSIAN  ELIMINATION  * 

C  *  AND  BACK  SUBSTITUTION  ROTATING  ABOUT  THE  ELEMENT  * 

C  #  OF  MAXIMUM  MODULUS.  * 


******  ************************************************ 


SUBROUTINE  GAUSS  (A,R»N»X) 
DIMENSION  A { 20 ♦ 20 ) *R ( 20 ) »X(20) 
M-N-l 

DO  11  J=  1  *  M 
S  =  0  • 

DO  12  I  =  J  » N 
U=  ABS ( A (  I  * J  )  ) 

IF(U-S)  12*12*112 
112  S=U 
L=  I 

12  CONTINUE 

IF(L-J)  119*19*119 
119  DO  14  I = J  *N 
S  =  A ( L  *  I  ) 

A  (  L  *  I  )  =  A  (  J  *  I  ) 

14  A ( J  *  I  5  = S 
S=R ( L ) 

R(L)=R( J) 

R  (  J  )  =  S 

19  I  F  (  ABS ( A ( J * J )  ) “1 .E-30 )  115*115*15 

115  WRITE (6 *3) 

GO  TO  500 

15  MM= J+ 1 

DO  11  I  =MM  *  N 

I F {  ABS ( A ( I » J ) ) “1 -E-30 )  11*111*111 
111  S  =  A ( J  *  J ) /A ( I *J) 

A ( I  * J ) =0 .0 

DO  16  K  =  MM  *  N 

16  A ( I »K ) =A ( J*K ) -S*A ( I *K ) 

R ( I )=R( J)-S*R< I > 

11  CONTINUE 
DO  17  K=  1  *N 
I *N+1"K 
S  =  0  •  0 

IF (  I-N )  117*17*117 

117  MM= I + 1 

DO  18  J  =  MM  *  N 


»*  „.  *#  i *  #***##**#* 

» 


:  /.  i  Tucfi  :;.;e 


I  ;  12  31  T  3  .  'ITD  J3  3^;T  * 

J3  HAlu^UAO  0^130  8  =  X*A  214QITAUC3  30 

3,  I  '  *T  *  |  01  TUT  I  T 2;?t2  >OAS  QUA  * 


.2  J Ji  OCV  MUVIXAM  30  * 


(Xf/tfltAJ  22UAC  3WITUCfl8U2 
.  .)  .  (  (  . V  «  QS ) A  /Q  1  2  3MI0 

X  -H 

v*I=l  II  00 

SI  00 
( ( L« I ) AJ2BA  *U 
SIItSI*SI  (S-UJ3I 

u*a  six 

t«J 

3UMIT’^03  SI 
•I*9If9TI  (3-  ;)3I 

/ • u* I  A I  00  91 1 
{  l\  J)A«2 

•  I  «l  :  a«=  ;  itj)  a 

2*  (  1  t  v*  )  A  Al 
(  j )  •- : 

J)fl 

2*(c)P 

l£#  d>  3TIHW  ei I 

oce  ot  oo 

SI 

II  oo 

H.#IiitXI  (0£-3.I-( U* I ) AJ28A  )3i 


( u  t I ) A \ ( L • L ) A*  2  III 
0#0«(l*I)A 
dl  00 


.  «  I  )  2-(>tUA«(  >t  I  )  A  dl 

{  I  )P*2-IUfl*(  I  )3 

aUtflTHOD  II 


/«!=>  V I  00 


>-I+K«I 

0.0«2 


VllfVIfVII  (/-I J  3 1 

I  1  »MM  VII 
i  fV|Vat  )I  QO 


(JUUVJUWUWUU 


A-  19 


SUBROUTINE  GAUSS  •••(CONT'D) 

18  S  =  S+A (  I  * J ) #X ( j ) 

17  X( I )  =  (R ( I )-S) /A  (  I  ,  I  ) 

500  RETURN 

3  FORMAT  (1H  * 'MATRIX  SINGULAR') 

END 
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APPENDIX  B 

GAS  CHROMATOGRAPH  CALIBRATION 

The  gas  chromatograph  was  calibrated  using  volumetrically 
prepared  samples.  The  equipment  used  for  sample  preparation  is 
illustrated  in  Figure  B.l.  Basically  it  consisted  of  a  5  liter  lucite 
cylinder,  equipped  with  a  moveable  piston,  and  a  gas  burette.  The 
Lucite  cylinder  had  been  calibrated  so  that  the  piston  position  deter¬ 
mined  the  volume  of  gas  it  contained. 

The  cylinder  was  initially  completely  purged  with  N2-  The 
known  volume  of  N^  in  the  cylinder  was  then  allowed  to  equilibrate  to 
atmospheric  pressure  and  temperature.  The  gas  burette  was  then  purged 
with  the  calibration  gas  and  a  volume  of  the  gas  brought  to  atmospheric 
pressure  by  means  of  a  mercury  reservoir  system.  The  condition  of 
equilibrium  was  observed  by  a  water  manometer.  Then  a  volume  of  the 
gas  was  forced  into  the  Lucite  cylinder  using  the  mercury  reservoir  to 
maintain  a  sufficient  head.  The  residual  volume  of  calibration  gas  was 
brought  to  atmospheric  condition  and  the  volume  recorded.  The  sample 
was  then  mixed  for  at  least  1  hour  using  a  fan  built  into  the  lucite 
cyl inder. 

Taking  into  account  the  pressure,  temperature,  and  specific 
molar  volumes, the  sample  composition  was  calculated  as  mole  percent. 

A  sample  mixed  in  this  manner  provided  more  than  a  sufficient 
amount  to  calibrate  the  gas  chromatograph.  After  the  lines  had  been 
purged  with  the  gas  mixture,  the  sample  loop  in  the  chromatograph  was 
filled  to  a  pressure  of  1  inch  of  mercury.  This  sample  was  then 
injected  into  the  chromatograph  He  carrier  stream  and  the  resulting 
peak  areas  measured.  Each  mixture  was  run  a  number  of  times  at  varying 


- 

■ 


B-2 


FIGURE  B-1 :  G.C. 


CALIBRATION  EQUIPMENT 
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attenuations.  A  calibration  curve  was  constructed  on  a  type  of  inter¬ 
nal  standard  calculation  of  the  following  form: 

/  mole  %  gas  x  _  ,  corr.  area  gas  ^  ao  ,D 

*  mole  %  N2  }  all  corr.  area  N2  '  100 

The  corrected  areas  were  the  measured  areas  multiplied  by  the  appropriate 
attenuation  factor.  The  attenuation  was  applied  by  means  of  10  turn 
potentiometers.  The  10  turn  potentiometers  were  found  to  be  correlated 
by  the  following  equation 

ATTEN  =  56  -  5.5  x  (dial  setting)  (B.2) 

A  calibration  of  the  10  turn  potentiometers  is  included  as  Table  B.l. 

The  data  and  calibration  results  for  S02  and  H2S  follow. 

The  calibration  equations  obtained  were  different  than  those 
obtained  by  Liu  (31)  and  McGregor  (34).  This  was  a  result  of  the 
revised  attenuator  equation.  The  incorrectness  of  their  equation  was 
observed  by  noting  the  following  facts  about  their  calibration  equations: 

1.  Their  values  of  aQ  did  not  approximately  equal  0. 

2.  Their  values  of  a-j  were  dependent  on  the  attenuator  setting. 

The  combination  of  these  two  facts  suggests  that  their  attenuator  equation 
was  not  correct.  Experimental  determination  of  the  attenuator  equation 
lead  to  different  correlation  coefficients. 

A  listing  of  the  program  GCCAL,  used  to  reduce  the  calibration 
data  to  usable  results,  is  included. 
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TABLE  B  •  1 


ATTENUATOR  SETTINGS  FOR  BECKMAN  PROGRAMMER 


X=ATTENUATOR  SETTING 
Y  =  AMPL I  FI  CAT  I  ON 

THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ARE 
AO  =  56.01169 

A 1  =  -5.50067 


REGENERATED  DATA 


MEASURED 

Y  OBSERVED 

Y  CALCULATED 

PCT  ERROR 

10.000 

1.000 

1.004 

0.489 

9.800 

2.095 

2.105 

0.479 

9.600 

3.206 

3.205 

0.025 

9.400 

4.313 

4.305 

0.178 

9.000 

6.529 

6.505 

0.358 

8.500 

9.298 

9.255 

0.452 

8.000 

12.065 

12.006 

0.486 

10.000 

1.000 

1.004 

0.489 

9.800 

2.081 

2.105 

1.155 

9.600 

3.157 

3.205 

1.526 

9.400 

4.249 

4.305 

1.325 

9.000 

6.427 

6.505 

1.222 

8.500 

9.144 

9.255 

1.223 

8.000 

11.858 

12.006 

1.250 

>033 S03  eo/iITTBS  ACT AUH3TTA 


KOlTADm  J9KA*Y 


2F1A  JAIVC/YJO^  3HT  10  2TK3IDI33300  3HT 

9dXI 0.22  »  OA 
YdOOa.e-  *  IA 


* 

e«A.o 

ACO.I 

.•x 

000. cx 

eox.s 

<?9c.s 

-■ 

008.9 

eos.£ 

dos.e  . 

OOd.9 

8  X  *0 

J  )£.  A 

■ 

C0A.9 

ee*  .o 

aoe.a 

9S?.d 

000.9 

S8A.0 

<?cS.< 

9S.9 

ooe.8 

. 

eao.sx 

♦VO 

A  C.X 

000.  X 

OCO.OI 

881. I 

O.S 

008.9 

rex  .£ 

008.9 

cS*  .1 

ece.< 

00A.9 

'  08. d 

ec“;.9 

rsA.d 

AAX  .9 

000.9 

ooa.a 

oes.x 

aoo.sx 

888.11 

COO  .  8 

10.000 

1.019 

1.004 

1.383 

9.800 

2.130 

2.105 

1.171 

9.600 

3.252 

3.205 

1.439 

9.400 

4.247 

4.305 

1.372 

9.000 

6.583 

6.505 

1.176 

8.500 

9.375 

9.255 

1.270 

8.000 

12.147 

12.006 

1.158 

1C. 000 

1.017 

1.004 

1.189 

9.800 

2.101 

2.105 

0. 192 

9.600 

3.201 

3.205 

0.130 

9.400 

4.286 

4.305 

0.450 

9.000 

6.648 

6.505 

2.142 

8.500 

9.205 

9.255 

0.553 

8.000 

11.921 

12.006 

0.715 

VARIANCE 

=  0.004808 

STANDARD  DEVIATION 

=  0.069342 

MAXIMUM  PCT  ERROR 

=  2.142339 

X  OX  •  1 

l  T .  I 


9F.4.I 

SV£*J 

'  ,  .  I 
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?0S.£ 

XOS.E 

008.9 

00d.9 

?cc.^ 

aps.4 

004.9 

000.9 

<»eS.9 

os. 9 

ooe.e 

IS9.II 

000.8 

33KAI8AV 

S*£9d3.0 • 
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TABLE  B • 2 


S02  CALIBRATION  EQUATION 


X  =  1 00*AREA  RATIO 
Y  =  1 00*MOL AR  RATIO 

THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ARE 
AO  =  0*05186 

A 1  =  0*74922 


REGENERATED  DATA 

X  MEASURED  Y  OBSERVED  Y  CALCULATED  PCT  ERROR 


1.110 

0.850 

0.833 

3.941 

2*280 

1.810 

1.760 

2.756 

3.460 

2.690 

2.644 

1.702 

4.860 

3.700 

3.693 

0.186 

6.980 

5.170 

5.281 

2.156 

12.020 

9.100 

9.057 

0.465 

VARIANCE 

=  0.003996 

STANDARD  DEVIATION 

=  0.063220 

MAXIMUM  PCT  ERROR 

=  3.941957 

S.F  3JPAT 

H0ITAUQ3  k‘0ITAfl6I  JA3  S02 

CITA9  A3A»00X*X 
OITA?  ?AJOM*OOX=V 

3?A  JAI'O  YJO?  3HT  30  2T/3 I  0 1  33300  3HT 

29X20.0  =  OA 
SS9AT.0  =  XA 

AT  A  Q  Q3T<£g3lA303? 


<33V?3280  Y 

03WU2A3M  X 

-r  A,- . 

£  b  6  • 

OXI.X 

82Y.S 

OdV.i 

OXft.X 

08S.S 

SOT  •  X 

AAd.S 

•  s 

08A.  E 

2  ft  X  *0 

£92. e 

O'  v.e 

088.  A 

I  b  s  .  C  . 

on. a 

069.8 

2c  -.0 

Y20.9 

‘  ;  .9 

oso.sx 

899E0  -  • C  = 

30HAISAV 

0SSE8  -  .0 

I 

Y  2  9  X  A  9  •  E  * 

?0??3 

TO  :•  ‘U‘>‘  I  XAV 
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TABLE  B • 3 


H2S  CALIBRATION  EQUATION 


X=100*AREA  RATIO 
Y= 1 00*MOL AR  RATIO 


THE  COEFFICIENTS  OF  THE  POLYNOMIAL  ARE 


AO  = 

0.09099 

A 1  = 

0.86043 

REGENERATED 

DATA 

MEASURED 

Y  OBSERVED 

Y  CALCULATED 

PCT  ERROR 

0.950 

0.870 

0.908 

4.415 

0.940 

0.870 

0.899 

3.426 

2.120 

1.860 

1.915 

2.963 

2.080 

1.860 

1.880 

1.113 

2.080 

1.860 

1.880 

1.113 

2.390 

2.200 

2.147 

9 

2.389 

2.360 

2.200 

2.121 

3.562 

2.350 

2.200 

2.113 

3.953 

4.200 

3.680 

3.704 

0.674 

4.230 

3.680 

3.730 

1.375 

4.140 

3.680 

3.653 

0.728 

8.440 

7.360 

7.353 

0.094 

8.460 

7.360 

7.370 

0.139 

10.030 

8. 720 

8.721 

0.013 

/0tTAU03  KOITAR&IJAD  3SH 


OITA*  A3*A#00X=X 
)  IT'?  RAJQM*'  Ol*Y 

99090.0  *  OA 

CA068.0 

ATAC  Q3T-AR3'H303« 


■T-  jjoja:  y 

809.0 

T  . 

069.0 

s;*i.r 

9-8.0 

0T8.0 

0*9.0 

t.  .s 

819.  X 

068  .  X  * 

C  8.X 

Od8.  I 

C8C.S 

CXI  .X 

-  .1 

06  r'  •  X 

9  e.s 

’  I  .  S 

)  ^  .S 

C9C.S 

Sd  .£ 

I  S  X  •  S 

oos.s 

06C.S 

ce9tc 

cxx.s 

oos.s 

Ava.o 

ACY.C 

q :  s .  a 

LCT.C 

eea.s 

0*I.A 

A  0. 

cee.v 

CdC.T 

9CX  .0 

C  Y£  •  V 

• 

064.8 

£10.0 

1ST.  8 

JST.8 

oeo.ox 

VARIANCE 


0.002060 


STANDARD  DEVIATION  = 
MAXIMUM  PCT  ERROR  = 


0.045390 

4.415033 
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MAINLINE  GCCAL 
MAINLINE  GCCAL 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


***#*#****#**-****##**#■**#**-*■>(■**■**#*  ******************** 


#  * 

*  MAINLINE  GCCAL  * 

*  * 

*  THIS  PROGRAM  WAS  WRITTEN  TO  DOCUMENT  THE  DATA  * 

*  TAKEN  FOR  THE  CALIBRATION  OF  THE  PROCESS  GAS  * 

*  CHROMATOGRAPH  AND  REDUCE  THIS  DATA  TO  CALCULATED  * 

*  RESULTS  USEFUL  FOR  THE  INTERNAL  STANDARD  PROCEDURE  * 

*  FOR  THE  CALIBRATION  OF  GAS  CHROMATOGRAPHS.  * 

*  INPUT  DATA  * 

*  NSET  -  NUMBER  OF  SETS  OF  DATA  * 

*  NCOPY  -  NUMBER  OF  COPIES  OF  OUTPUT  DESIRED  * 

*  NPAGE  -  PAGE  NUMBER  OF  FIRST  PAGE  OF  OUTPUT  * 

*  NRUN  -  CALIBRATION  RUN  NUMBER  * 

*  NCROM  -  NUMBER  OF  CHROMATOGRAMS  TAKEN  * 

*  IPEAK  -  PEAK  NUMBER  CALIBRATED  * 

*  . . .2  -  H2S  * 

*  . . .3  -  S02  * 

*  ICOMP  -  AREA  FLAG  * 

*  ...1  -  COMPUTER  AREAS  INCLUDED  * 

*  ...0  -  NO  COMPUTER  AREAS  * 

*  RTEM  -  ROOM  TEMPERATURE  (DEG  F)  * 

*  APRES  -  ATMOSPHERIC  PRESSURE  (MM  HG )  * 

*  BTEM  -  WATER  BATH  TEMPERATURE  (DEG  F)  * 

*  v  (  1  )  “  DISTANCE  BETWEEN  PISTON  AND  END  OF  * 


*  CYLINDER  (IN)  * 

*  V ( 2 )  -  VOLUME  OF  CALIBRATION  GAS  (CU  CM)  * 

*  RDG(l)-  AREA  OF  NITROGEN  PEAK  * 

*  RDG ( 2 ) -  AREA  OF  CALIBRATION  GAS  * 

*  R  DG  (  3  )  -  ATTENUATION  FOR  NITROGEN  * 

*  RDG ( 4 ) -  ATTENUATION  FOR  CALIBRATION  GAS  * 

*  NOTE-NO  ATTENUATION =10.0  * 

*  * 
#***#***#*#*### tt*##*^##*##************#***#*********** 

DIMENSION  SNAM ( 4  »  2 )  *  SMV ( 3 )  >V(2)  *RDG(7)  » AVG  ( 7 )  »STQRE(40 

*  .7  ) 

DATA  SMV / 2240 3 • 60  *  22144 • 24  *  2 1 8 89 • 3 0/ 

DATA  SNAM/ ’ HYDR *  » ’OGEN •  » '  SUL '  *  '  F I DE 1  * ' SULF '  ♦ 1  UR  D' 

** '  IOXI '  *  *  DE  ' / 

READ (3*1)  NSET ♦ NCOPY 
DO  2  I SE T= 1 *NSET 

READ( 5*1  )  NRUN* NCROM* I  PEAK  *  I  COMP ♦ NCOMP 
RE AD ( 5  *  3  )  RTEM*BTEM*APRES*V( 1 )  >V(2) 

I C  =  1 

STEMP=273. 

SP  RES  =  7  60 • 

RTEM= (RTEM+460. ) /1.8 


J  )D  -  3>  U,  I  AM 


JADD3  3  '  I  JV  I  Av 


iADDJ  3  IJMIAM 


•  c  ^  ,s  t  ?,hd  a  30 


^OITAfiai  JAD 

AT  AQ 


3HT  5103 

Tuqui 


'  1 

JAJU^J  O  OT  ATAC  e  I  ^  T  OU<:  ■  /A  i-AfiCOTA’-  •'  •  )  * 

103  JU  3  -T  juejfi  * 

* 


I  .  O  '  ■  >  1 

soa  - 

i.  i  '  * 

3^  331  •  D  /  - 

rt33v*T  -.6  3DHAT2I0 
LI)  GMI JYD 

OITA*  :  J;  0  30  ^UJOV 
A;  ,  ^  TIM  3C  A  9. A 

, 

■>3  JITA  •;  T  i  A'  -(  5 
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C  *  •  • 
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- 
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-• 

-( DOQf 
-  ( o ) 


D 

D 

D 

D 


*(  )OV  A»(  J  ..  •  {  S)V»  te  )  VM2f  (  S*A)  A  5  'CI2/;3MTG 

'  -  '  ’  *  .  •  y'H * \  AM3  ATi 

\»  30  *  t  *  I XOl *  *  * 

Y^ODiAt  1  33/  (  I  #«  I0A3P 
T3aM*i=T38I  $  oc 

* 
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MAINLINE  GCCAL  ...(CONT'D) 

BTEM= ( BTEM+460. ) / 1 • 8 
CALCULATION  OF  SAMPLE  COMPOSITION 


V ( 1 ) = V ( 1 ) *2 • 54 

X  M  N  2  = (  1 1 •  +  1 5 1 • 192#V ( 1 )  ) *STEMP/RTEM*APRES/SPRES/SMV ( 1 ) 
V(  1)=(11.+151.192*V(1)  ) 

X  M  C  A  L  =  V ( 2 ) *S TEMP / B TEM* AP RES /SPRES/SMV (  I  PEAK) 

T0TM=XMN2+XMCAL 

XMN2=XMN2 /TOTM# 100* 

XMCAL=XMCAL/TOTM*100. 

RMOL=XMCAL/XMN2*100. 

KPEAK= I  PEAK-1 

READ  AND  PROCESS  PEAK  AREA  DATA 


Nl=NCROM 

N2  =  1 

N3=NCROM+l 

N4=NCROM+2 

N5=NCROM+3 

N6=N4+NC0MP 

N7=N6+1 

N8  =  N7  +  1 

NCAT=0 

14  DO  4  1=1*7 
4  AVG ( I ) =0 • 0 

DO  5  I CR0M= 1  * NCROM 

NCAT=NCAT+1 

READ (5*3)  RDG 

ADJUSTMENT  OF  THE  AREAS  WITH  ATTENUATIONS 


RDG ( 5 ) =RDG ( 2 ) * ( 56 .-5. 5*RDG ( 4 ) ) 
RDG ( 4 ) =RDG ( 2 ) 

RDG(2 )=RDG( 1 ) *1 20 • 

TOTA=RDG ( 2 ) +RDG ( 5 ) 

RDG ( 3 ) =RDG ( 2 ) /TOT A* 100. 
RDG(6)=RDG(5) /TOT A* 100. 

RDG ( 7 ) =RDG ( 5 ) /RDG ( 2 ) *  1 00 • 

CALCULATE  THE  AVERAGES 


DO  6  1=1*7 

6  AVG ( I ) =RDG (  I ) +AVG ( I  5 
DO  20  0=1*7 
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MAINLINE  GCCAL 


.  .  . ( CONT  «  D ) 


20  STORE (NCAT»J) =RDG(j) 

5  CONTINUE 

DO  7  1=1,7 

7  AVG ( I  ) =AVG (  I  ) /NCROM 
NCAT  =NCAT+1 
DO  21  J=1 ,7 

21  STORE(NCAT,J)=AVG( J) 

N  =  NCAT  +  1 

M  =  NCA  T- 1 
DO  29  1=1,2 
29  STORE ( N  ,  I  )=0. 

CALCULATE  THE  VARIANCE  AND  THE  STANDARD  DEVIATION 


DO  30  I =N2  *M 

30  STORE (N  ♦ 1 )= (STORE (NCAT ,7 ) -STORE (1,7)) **2 . +STORE ( N ♦ 1 ) 
NCAT=NCAT+1 

STORE(NCAT,l)=(STORE(NCAT ,1 ) /M ) 

STORE (NCAT, 2 ) =STORE(NCAT ,1 )  **  •  5 
I F ( I  COMP  )  9,9,8 
8  I COMP=0 
N2  =  N5 


IC  =  0 

NCROM=NCOMP 
GO  TO  14 
CONTINUE 

DO  23  I L= 1  *  NCOP Y 


WRITE  (6 

,19  ) 

WR I TE  (  6 

,10) 

*  ,  J  =  1 , 4  ) 

,  V  (  2  ) 

WRITE (6 

*11) 

WRITE  (6 

,12) 

WRITE (6 

,13) 

WR I TE  (  6 

,15) 

WR  I  TE ( 6 

,17) 

WR I TE ( 6 

,15)  ( 

WRITE (6 

,18  ) 

I  F  (  1023,24, 

NRUN  ,RTEM,BTEM,APRES,V( 1)  , ( SNAM ( J * KPE AK ) 

XMN2  * ( SNAM ( J  » KPEAK )  ,J=1,4)  ,XMCAL , RMOL 

( SNAM ( J  »KPEAK )  ,J=1  ,4) 

(  ( STORE ( I  *  J )  »  J  =  1 »  7 )  ,  I  =  1 , N 1 ) 

15) ( STORE ( N3 , J ) >J=1*7) 

( STOR E ( N4 , J )  ,  J  =  1 , 2 ) 


24  CONTINUE 
WRITE (6 , 19  ) 

WR I TE ( 6  » 10  )  NRUN  ,RTEM ,BTEM,APRES,V(1)  ,( SNAM ( J , KPEAK ) 
*,J«1,4  )  , V ( 2 ) 

WR I TE ( 6 ,11)  XMN2  » ( SNAM ( J  *  KPEAK ) *J=1»4)  »XMCAL»RMOL 
WR I TE ( 6  » 16 ) 

WR I TE ( 6  *  1 3  )  (SNAM(J, KPEAK)  »J=1>4) 

WRITE (6 ,40  )  (  ( STORE ( I ,J)  » J  =  1 »  7 )  » I =N5  »  N6 ) 

WR I TE ( 6  *  17  )  , 

WR I TE ( 6  , 40  )  ( STORE ( N7 , J )  * J  =  1  *  7  ) 

WR  I  TE ( 6 , 1 8  )  ( STORE (N8 ,J )  ,J  =  1 *2 ) 
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MAINLINE  GCCAL  ...(CONT'D) 

23  CONTINUE 

NPAGE=NPAGE+1 

2  CONTINUE 

1  FORMAT (5 15) 

3  FORMAT ( 7F10. 5 ) 

10  FORMAT (  /15X  ,' CALIBRATION  SAMPLE  NUMBER ' *  I  3  * / / / 10X 

*»' SAMPLE  PREP 

1ARATION  CONDITIONS » //12X »' ROOM  TEMPERATURE . 

*  *  F 7 • 1  *  1  DEG  K 

2  '  ,//12X  *  'BATH  TEMPERATURE . SF7.1*'  DEG  K’»/ 

*/12X » ' ATMOSPHE 

3RIC  PRESSURE . '»F7.1,'  MM  HG '»// 1 2 X ,' VOLUME  OF 

*  NITROGEN . 

4 • '  *  F7 • 1 »  '  CC'  *//12X» 'VOLUME  OF  '»4A4,F7.1>»  CC *  ) 

11  FORMAT (  //» 10X »' SAMPLE  COMPOSITION  (MOLE  PERCENT)’/ 

* / 1 2X  * 'NITROGEN. 

1 . '  *F6. 2  « //12X  »4A4  * ' •  •  #  '  »F6.2»//12X» '100X 

*  MOLAR  RATIO. . . ' » 

2F6.2) 

12  FORMAT (  //.lOXi'DISK  INTEGRATOR  AREA  RESULTS’,/) 

13  FORMAT (  19X  NITROGEN '» 13X ,4A4*9X» ’ 100X '  ,//llX 

*  ,  *  INPUT '  ,3X  ,  • CORR ' 

2*4X,'PCT  OF'  ,5X,  '  INPUT'  ,3X» ’CORR’  ,4X, 'PCT  OF',5X 
'AREA'  /11X,  'AREA 

3 •  ,4X,  ' AREA’  ,4X, ' TOTAL '  ,6X  ,  'AREA '  »4X* 'AREA'  *4X» ' TOTAL ' 

*  »  6  X , ' RATIO' /) 

15  FORMAT (9X»F6.1»2X,F7*1 ,2X,F6.2,5X*F6.1*2X,F6.1,2X,F6.2 
**5X,F6.2/) 

16  FORMATt  //»10X» 'COMPUTER  AREA  RESULTS',/) 

17  FORMAT ( /,10X, 'AVERAGES' ) 

18  FORMAT(/*50X» 'VARIANCE' ,2X,E10. 3*/, 50X* 'STD.  DEV.', IX 

*  »  E 10 • 3  ) 

19  FORMAT (  '  1'  ,//////) 

40  FORMAT(9X»F6.2,2X,F7.2,2X,F6.2,5X,F6.2,2X,F6.2,2X,F6«2 
*,5X,F6.2 ) 

CALL  EXIT 
END 
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APPENDIX  C 

CALCULATION  OF  KINETIC  RESULTS 
C.l  Input  Information 

The  input  was  entered  on  request  after  keyboard  queuing  the 
material  balance  program.  A  typical  input  request  sequence  is  included 
as  Table  C.l.  All  entered  input  was  preceded  with  a  ">"  and  has  been 
underlined  for  clarity.  The  input  request  precedes  the  input. 

C.2  Reduction  of  Input  Data 
C.2.1  Gas  Chromatograph  Data 

a)  correct  areas  using  attenuation  factor. 

atten  factor  =  56  -  5.5  x  (atten  setting) 
corr.  area  =  meas.  area  x  atten  factor 

b)  calculate  average  areas  for  each  component. 

c)  calculate  area  ratios,  AH2S/AN2  and  AS02/AN2- 

d)  calculate  molar  ratios. 

MH2S/MN2  =  0.86043  x  (AH2S/AN2)  +  0.9099  x  10"3 
MS02/MN2  =  0.74922  x  (AS02/AN2)  +  0.5186  x  10'3 

e)  calculate  mole  fractions. 

FDC0Mn  or  PRC0Mn  =  1  /(I  +  MH2S/MN2  +  MS02/MN2) 

fdcomh  s  =  fdcomh  s  x  mh2s/mn2 

FDC0M$0  =  FDC0M$0  x  MS02/MN2 

C.2. 2  HqO  Feeder 

a)  cc/hr  =  0.15581  +  0.52044  x  dial  setting 

b)  (cc/gm)y  =  1.00597  -  0.00011  x  T^  ^ 

c)  gm/hr  =  (cc/hr)/(cc/gm).j- 


\ 


- 
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TABLE  C-l 


INPUT  REQUEST 


1BLK 1 2 

1REL0AD  QUEUED  OK 

:LE  STORAGE  FLAG( 1 -STORE* 2-NO ) 

JNCTION  FLAG  C 1 -PROC  NEW  DATA  OR  2-PR0C  FILE  DATA ) & 

41 1  NT  FLAG  C 1 -TTY*  2-N0NE 
>  1  2 

:  OF  CATALYST CGM)&NUMERIC  FILE  NO. 

.5091  50 

IN  NO.*  NO.  OF  FEED  G.CoNOj  OF  PROD.  G.C. 

10-4  2t3  2 

CMP-REACT.  BED*  WALL*  FLUID  BED*  PRESS-  REACTOR*  FEED  D/P 
13.04  13.04  13.40  17.7  12.2 

-)EC  I FY  H20  FEEDER  PCT  AND  TEMP 
12  82 

rTEN.  CODE 

-9. 8,  2 -9. 4,  3-9. 0,4 -8. 5*  5-10.0 

>  5 

-ED  G.C.  AREAS -N2*  H2S*  S02*  H20 
1.2.287  28.64  1  50.07  1 
12.189  28.464  59.4t345 

12.046  28.708  59.244 

DECIFY  ATTEN.  CODE- -H2S  AND  S02 

l  5 

30D.  G.C.  AREAS 
14 .081  28.936  56.982 


- 


■ 
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C.2.3  Temperature  (°C) 


a) 

Tcat  =  5-3155  +  18.076  x  (M.V.) 
bed 

b) 

T reactor  =  6'6860  +  17-9544  *  (H-V.) 
wall 

c) 

Tfluid  =  6-3627  +  17-9853  x  (M.V.) 
bed 

d) 

Treaction  “  ^Tcat  +  T  reactor^2 

bed  wall 

C.2.4 

Absol 

ute  Pressures 

a) 

Preactor  “  716'47  +  6'5452  *  <PCT> 

b) 

pfeed  =  22 • 5  Psia 

C.2.5 

Feed 

Flow  (SCFH) 

a) 

FFm  =  -  0.0420  +  0.8962  /PCT  +  0.00104 
2 

b) 

composition  correction 

l  FDCOM.  x  MW. 
-  i  =  1 


’MIX 


l  FDMOM. 
i  =  l  1 

x  V. 

MW 

V 

i  =  1 

n2 

28 

22403.60 

i  =  2 

h2s 

34 

22144.24 

i  =  3 

S02 

64 

21889.30 

PN  -  28/ V-j 


N. 


rr  /  2  >1/2 

,F«»  '  FV‘W 


C.2.6  Feed  Rates  (gm. mole/hr) 


a)  average  molar  volume 


C-4 


3 

AMV  =  (  l  v,  x  FDCOM. )/2831 7.016 

i=l  1  1 

b)  FN2  =  (FDCOM-,  x  FFmix)/AMV 

FH2S  =  FN2  x  (FDC0M2/ FDCOM-  x  (V]/V2) 

FS02  =  FN2  x  (FDCOM- FDCOM,)  x  (V^V,) 

FH20  =  (gm  H20/hr}/18.0588 

C . 2 . 7  Product  Rates  (mole/hr) 

pn2  =  fn2 

PH2S  =  PN2  x  (PRCOMg/PRCOM^  x  (V-j/Vg) 

pso2  =  pn2  x  (PRCOM3/PRCOM-| )  x  (v]/v3) 

ph2o  =  fh2o  +  (fh2s  -  ph2s) 

PSx  =  1.5  x  (FH2S  -  PH2S)/Ave.  Mole  No.  of  S 

PH2  =  (FH2S  -  PH2S)  -  2x  (FS02  -  PS02) 

C.2.8  Reaction  Rates  (gm  mole/hr/gm.cat) 

RXH2S  =  (FH2S  -  PH2S)/  wt  of  cat. 

RXS02  =  (FS02  -  PS02)/  wt.  of  cat. 

C.2.9  Conversions  (percent) 

h2scn  =  (fh2s  -  ph2s)  x  ioo/fh2s 

so2cn  =  (fso2  -  pso2)  x  ioo/fso2 

C.2.10  WFA 

WFA  =  WC/FH2S 

C .2.1 1  Adjust  feed  composition  to  allow  for  H20_feed 


4 


FDC0Mi 


' 


■ 


«>’<  MM MaiwI or.s-j 
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C.2.12  Partial  Pressures 

;  in 

Reactor  (mm  Hq) 

ii 

a. 

a. 

Pi 

x  P  . 

reactor 

1 

5 

1 

P. 

i 

i=l 

1 

C.3  Example  Calculation 

for 

Run  10-4 

C.3.1  Gas  Chromatograph  Data 


a) 

measured  area 

corrected  area 

N2 

h2s 

so2  n2 

h2s  so2 

feed 

12.287 

28.641 

59.071  1474.44 

123.156  59.071 

12.189 

28.464 

59.345  1462.68 

122.395  59.345 

12.046 

28.708 

59.244  1445.52 

123.444  59.244 

AVE  1460.88 

122.998  59.220 

prod 

14.081 

28.936 

56.982  1689.72 

124.425  56.982 

14.021 

28.610 

57.368  1682.52 

123.724  57.175 

b)  AVE  1686.12 

123.724  57.175 

N2  atten 

factor  = 

120 

H2S  atten 

factor  = 

56  -  5.5  (9.4)  = 

4.30 

S02  atten 

factor  = 

56  -  5.5  (10.0)  = 

1.00 

feed 

product 

c) 

ah2s/an2 

.084194 

.073377 

aso2 

/an2 

.040537 

.033909 

d) 

mh2s/mn2 

.073353 

.064044 

mso2/mn2 

.030890 

.025923 

e) 

n2 

.90560 

.91746 

U  Q 

.06642 

.05876 

S02 


.02797 


.02378 


. 

ti 

-> 

' 
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C.3.2  HqO  Feeder  (gm/hr) 

a)  cc/hr  =  0.15581  +  0.52044  (12.0)  =  6.40109 

b)  cc/hr  =  1.00597  -  0.00011  (82)  =  0.996950 

c)  gm/hr  =  6.40109/0.996950  =  6.420673 

C.3.3  Temperatures 

a)  Tcat  =  5.3155  +  18.076  (13.04)  =  241.03 

bed 

b)  Twall  =  6.6860  +  17.9544  (13.04)  =  240.81 

c)  T  =  (241.03  +  240.81 )/2  =  240.92 

C.3.4  Absolute  Pressures 

a)  P( reactor)  =  716.47  +  6.5452  (17.70)  =  832.32 

b)  P(feed)  =  22.5  psia 

C. 3.5  Feed  Flow  (SCFH) 

a)  FFW  =  -  0.0420  +  0.8962  /12T  +  .00104  (12.2) 

m2 

=  3.100979 

.90560  x  28  +  .06643  x  34  +  .02797  x  64 

b)  p M I X  '  .90560  x  22403.6  +  .06643  x  22144.24  +  02797  x  21889.3 

=  .001314 

p  =  28/22403.60  =  .001249 

n2 

FFwIV  =  3.100979  x  {. 001 249/ . 001 314) '5 
MIX 

=  3.02331 

C. 3.6  Feed  Rates  (am  moles/hour) 

a)  average  molar  volume  (ft  ) 

90560  x  22403.6  +  .06643  x  22144.24  +  .02797  x  21889. 
AMV  =  - - 28317.016 


0.790054 


- 


t  3  '  •  il 
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b)  FN2  =  0.90560  x  3.02331/. 790054  =  3.4655 

FH2S  =  0.06643  x  3. 02331/. 790054  =  0.2542 

FS02  =  0.02797  x  3.02331/ . 790054  =  0.1070 

FH20  =  6.420673/18.0588  =  0.3555 

C.3.7  Product  Rates 

PN2  =  3.4655 

PH2S  =  3.4655  x  ( .05876/. 91746)  x  (VN2/VH2S) 

=  0.2245 

PS02  =  3.4655  x  (.02378/. 91746)  x  (ViyVSCL) 

=  0.0919 

PH20  =  0.3555  +  (.2542  -  .2245)  =  0.3852 

PSv  =  1.5  x  (.2542  -  . 2245 ) /7 . 34  =  0.0061 

PH2  =  (.2542  -  .2245)  -  2x( . 1070  -  .0919)  =  -.0005 

C.3.8  Reaction  Rates  (gm  moles/hr/gm  cat.) 

RXH2S  =  (.2542  -  .2245)/. 5091  =  .05834 
RXS02  =  (.1070  -  .0919)/. 5091  =  .02966 

C.3.9  Conversions  (percent) 

H2SCN  =  (.2542  -  .2245)  x  100/. 2542  =  11.68 
S02CN  =  (.1070  -  .0919)  x  100/. 1070  =  14.11 

C. 3.10  WFA 

WFA  =  .5091/. 2542  =  2.003 

C.3.11  Adjust  Feed  Composition  for  M  Feed 
4 


4.1822 


. 

■ 


N2  =  100  x  3.4655/4.1822  =  82.863 

H2S  =  100  x  0.2542/4.1822  =  6.078 

S02  =  100  x  0.1070/4.1822  =  2.558 

H20  =  100  x  0.3555/4.1822  =  8.500 

C.3.12  Partial  Pressures  in  Reactor  (mm  Hg) 

5 

T  P,  =  4.1732 

i  =  l  1 

N2  =  (3.4655  x  832. 32}/4. 1732  =  691.11 

H2S  =  (0.2245  x  832. 32)/4. 1732  =  44.78 

S02  =  (0.0919  x  832. 32)/4. 1732  =  18.33 

H20  =  (0.3852  x  832. 32)/4. 1732  =  76.83 

S  =  (0.0061  x  832. 32)/4. 1732  =  1  .22 
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TABLE  C-2 
RAW  DATA 


CAT 

RUN  WT. 

RED 

TVP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

M2  0 

TOP 

10-4  0.5091 

13.04 

13.04 

17.70 

12.20 

12.0 

32.0 

FEED 

PROD 

H  2 

H2S 

S02 

M2 

H2S 

SO? 

A  T  T  F  N 

9.400 

10.000 

9.40  0 

1  *  j  .  )  0  0 

A  9  E  A 

12.287 

28.641 

59.071 

14.081 

28.936 

5  6  •  9  6  2 

AREA 

12.  189 

28.464 

59.345 

14.021 

28.610 

57.368 

AREA 

12 . 046 

28.708 

59.244 

TABLE  C-3 


C-10 


R U N  NUMBER  10-4 


UNITS 


V1ASS . 

PRESSURE . 

...MILLIMETERS  OF  MERCURY 

TEMPERATURE. . 

...DEGREES  KELVIN 

TIME . 

COMPOSITION.. 

PERCENT 

VOLUME . 

.  CUBIC  FOOT 

REACTION  RATE 

...GM  MOLES/ (HR-GM  OF  CATALYST 

VOLUMETRIC  FEED  RATE 

3.023 

WC/FH2S 

2.00 

REACTION  RATE  OF  H2S 

0.0382 

REACTION  RATE  OF  S02 

0.0296 

REACTION  TEMPERATURE 

313.88 

REACTION  PRESSURE 

832.3 

FEED  .H2S/S02  RATIO 

2.3746 

PRODUCT  H2S/S02  RATIO 

2.4421 

CONVERSION  OF  H2S 

11*66 

CONVERSION  OF  S02 

14.10 

MOLECULAR 

FEED 

PARTIAL  PRESSURE 

MATERIAL 

balance 

SPECIE 

COMPOSITION 

IN  REACTOR 

FEED 

product 

'  N  2 

82.86 

691.1 

3.466 

3.466 

H2S 

6.07 

44.7 

0.254 

0.224 

SO  2 

2.53 

18.3 

0.107 

0.091 

H20 

8.49 

76.8 

0.355 

0.383 

SX 

0.00 

1.2 

0.000 

0.0  06 

H2 

0.00 

0.0 

0.000 

-0.000 

AVERAGE 

NO.  OF  SULFUR 

ATOMS/MOLECULE* 

7.34 

* 

• 

. 

TABLE  04 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

1-01 

0.5091 

13.12 

13.12 

18.00 

74.00 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

M2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

13.187 

37.074 

49.739 

15.798 

38.831 

45 .369 

AREA 

13.187 

36.921 

49.890 

15.746 

38.609 

45.643 

AREA 

15.704 

38.546 

45.749 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

1-02 

0.5091 

13.12 

13.12 

18.20 

73.00 

0.0 

o 

. 

o 

N  2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

12.170 

9.400 

32.771 

10.000 

55.057 

14.353 

9.400 

33.558 

10.000 

52.088 

AREA 

12.186 

32.928 

54.885 

14.432 

33.532 

52.035 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT  FEED 

PRESS  D/P 

PCT 

H20 

TMP 

1-03 

0.5091 

13.10 

13.10 

18.30  73.00 

0.0 

0.0 

ATTEN 

AREA 

AREA 

N2 

9.555 

9.572 

FEED 

H2S 

9.400 

23.369 

23.466 

S02 

10.000 

67.074 

66.959 

N2 

11.062 

11.018 

PROD 

H2S 

9.400 

22.588 

22.576 

S02 

10.000 

66.349 

66.405 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PC  T 

H20 

TMP 

2-01 

0.5091 

13.09 

13.09 

17.30 

32.40 

0.0 

0.0 

N2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

11.449 

9.400 

15.247 

10.000 

73.302 

13.175 

9.400 

13.220 

10.000 

73.603 

AREA 

11.520 

15.277 

73.201 

13.150 

13.304 

73.544 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

2-02 

0.5091 

13.10 

13.10 

17.30 

65.00 

0.0 

0.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

11.153 

15.631 

73.213 

12.468 

14.162 

73.368 

AREA 

11.112 

15.650 

73.236 

12.475 

14.193 

73.331 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

2-03 

0.5091 

13.08 

13.08 

18.00 

12.20 

0.0 

0.0 

N2 

FEED 

H2S 

S02 

N2 

PROD 

H23 

S02 

ATTEN 

AREA 

6 .607 

9.400 

15.458 

10.000 

28.782 

13.920 

9.400 

24.350 

lo.ouo 

42.640 

AREA 

6.629 

15.495 

28.865 

13.690 

24. 100 

41.520 

AREA 

6.482 

15.147 

28.481 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

3-01 

0.5091 

13-11 

13.11 

17.30 

11.90 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

atten 

9.400 

10.000 

9.400 

10.000 

AREA 

11.517 

15.354 

73.128 

13.999 

12.609 

73.390 

AREA. 

11.538 

15.417 

73.043 

14.015 

12.495 

73.488 

AREA 

11.545 

15.395 

73.059 

13.980 

12.618 

73.401 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

3-02 

0.5091 

13.06 

13.06 

17.40 

23.90 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

atten 

9.400 

10.000 

9.400 

10.000 

AREA 

11.432 

15.132 

73.435 

13.181 

13.054 

73.764 

AREA 

11.421 

15.123 

73.455 

13.197 

13 . 143 

73.658 

AREA 

11.427 

15.133 

73.439 

13.224 

13.097 

73.677 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

3-03 

0.5091 

13.06 

13.06 

17.30 

49.90 

0.0 

0.0 

ATTEN 

AREA 

AREA 

AREA 

N2 

11.440 

11.398 

11.413 

FEED 

H2S 

9.400 

15.082 

15.168 

15.100 

S02 

10.000 

73.477 

73.433 

73.485 

N2 

12.759 

12.781 

PROD 

H2S 

9.400 

13.683 

13.669 

S02 

10.000 

73 .557 

73 . 548 
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TABLE  C-4  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

3-04 

0.5091 

13.05 

13.05 

17.40 

79.00 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

atten 

9.400 

10.000 

9.400 

10.000 

AREA 

6.433 

8.483 

41.729 

6.419 

7.089 

37.964 

AREA 

6.430 

8.513 

41.528 

6.406 

7.018 

37.806 

AREA 

6.423 

7.143 

37.643 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

4-01 

0.5091 

13.12 

13.12 

19.80 

10.20 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2  S 

S02 

ATTEN 

9.400 

10.000 

9.3  00 

10.000 

AREA 

13.300 

23.530 

63.010 

14.030 

18.340 

26.690 

AREA 

13.630 

23.790 

62.510 

24.030 

31.110 

43.300 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

4-02 

0.5091 

13.14 

13.14 

19.00 

9.70 

0.0 

0.0 

N2 

FEED 

H2S 

S02 

PROD 

N2  H2S  S02 

atten 

9.400 

9.800 

9.800  9.800 

AREA 

18.150 

31.730 

50.100 

29.930  32.960  37.100 

AREA 

18.230 

31.820 

49.930 

AREA 

18.330 

31.850 

49.800 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

4-03 

0.5091 

13.03 

13.03 

19.00 

9.40 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

9.800 

9.800 

10.000 

AREA 

16.040 

29.990 

54.060 

10.780 

13.960 

41.920 

AREA 

16. 130 

29.980 

53.880 

10.800 

13.960 

41.680 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

4-04 

0.5091 

13.19 

13.19 

19.20 

9.20 

0.0 

0.0 

N2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

13.780 

9.000 

20.190 

10.000 

66.010 

14.360 

9.400 

14.570 

10.000 

24.780 

AREA 

13.600 

20.000 

66.110 

14.770 

14.900 

24.890 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

5-01 

0.4946 

13.17 

13.17 

19.30 

18.00 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.000 

9.800 

9.400 

9.800 

AREA 

7.121 

7.090  13.480 

7.063 

8.512 

10.192 

AREA 

7.191 

7.418  13.671 

7.106 

8.493 

10.191 

AREA 

6.984 

7.291  13.274 

7.081 

8.471 

10.206 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BFD 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

5-02 

0.4946 

13.13 

13.13 

19.80 

18.30 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.000 

9.800 

9.000 

9.800 

AREA 

6.924 

10.521 

12.706 

5.963 

8.269 

9.198 

AREA 

6.969 

10.559 

13.052 

6.927 

8.259 

9.339 

AREA 

7.028 

8.413 

9.270 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

5-03 

0.4946 

13.12 

13.12 

20.00 

18.00 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

8.500 

9.800 

8.500 

9.800 

AREA 

6.843 

8.507 

13.189 

6.935 

7.295 

9.261 

AREA 

6.895 

8.492 

13.117 

6.888 

6.837 

9.009 

AREA 

6.920 

8.253 

13.040 

6.867 

7.166 

9.073 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

6-01 

0.4946 

13.08 

13.08 

19.80 

18.20 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.000 

9.000 

9.400 

9.000 

AREA 

6.822 

8.329  10.531 

6.931 

8.561 

9.130 

AREA 

6.826 

8.250  10.656 

6.859 

8.472 

9.172 

AREA 

6.816 

8.324  10.609 

6*868 

8.524 

9.156 
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TABLE  C-4  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

6-0  2 

0.4946 

13.09 

13.09 

20.00 

18.30 

0.0 

0.0 

N2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

6.502 

8.500 

11.066 

9.000 

10.106 

6.587 

8.500 

8.400 

9.000 

8.054 

AREA 

6.513 

10.924 

10.185 

6.595 

8.452 

8.075 

AREA 

6.527 

10.970 

10.208 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

6-03 

0.4946 

13.02 

13.02 

21.00 

17.40 

0.0 

0.0 

ATTEN 

AREA 

M2 

6.925 

FEED 

H2S 

8.500 

8.815 

S02 

9.800 

6.686 

N2 

6.901 

PROD 

H2S 

8.500 

7.685 

S02 

10.000 

8.240 

AREA 

6.966 

8.944 

6.713 

6.927 

7.745 

8 .340 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

7-01 

0.4946 

13.06 

13.06 

20.00 

17.49 

0.0 

0.0 

ATTEN 

AREA 

AREA 

N  2 

6.931 

6.903 

FEED 

H2S 

8.500 

9.475 

9.259 

S02 

9.800 

7.288 

7.057 

N2 

6.911 

6.913 

PROD 

H2S 

8.500 

8.161 

8.179 

S02 

10.000 

7.680 

8.282 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

7-02 

0.4946 

13.07 

13.07 

20.00 

17.70 

0.0 

0.0 

N  2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

6.788 

8.500 

9.239 

9.800 

11.893 

6.899 

8.500 

7.371 

10.000 

14.328 

AREA 

6.797 

9.245 

11.616 

6.847 

7.140 

14.361 

AREA 

6.857 

9.297 

11.897 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

7-03 

0.4946 

13.06 

13.06 

20.00 

17.80 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

8.500 

9.400 

8.500 

9.800 

AREA 

6.771 

8.821 

10.114 

6.831 

6.169 

14.085 

AREA 

6.754 

8.609 

9.996 

6.861 

6.326 

14.353 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

7-04 

0 .4946 

13.06 

13.06 

20.00 

18.00 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

8.500 

9.000 

8.500 

9.400 

AREA 

6.691 

8.662 

7.901 

6.848 

5.777 

9.169 

AREA 

6.704 

8.695 

8.023 

6.850 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

7-05 

0*4946 

13.06 

13.06 

20.00 

18.20 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

8.500 

9.000 

9.000 

9.400 

AREA 

6.505 

8.434 

11.465 

6.661 

7.408 

13.586 

AREA 

6.530 

8.300 

11.640 

6.665 

7.600 

13.757 

AREA 

6.554 

8.289 

11.497 

6.739 

7.652 

13.914 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

7-06 

0.4946 

13.09 

13.09 

20.20 

17.49 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

8.500 

8.500 

9.000 

9.000 

AREA 

6.156 

10.032 

13.002 

6.383 

8.637 

15.252 

AREA 

6.184 

9.876 

12.911 

6.331 

S.279 

15.219 

AREA 

6.215 

10.010 

12.943 

6.305 

8.294 

15.335 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

8-01 

0.4946 

13.07 

13.07 

20.00 

17.49 

0.0 

0.0 

ATTEN 

AREA 

AREA 

AREA 

N2 

6.421 

6.473 

FEED 

H2S 

9.000 

6.667 

7.089 

S02 

8 .500 
13.297 
13.132 

N2 

6.621 

6.585 

6.577 

PROD 

H2S 

9.800 

9.877 

9.708 

9.307 

S02 

8.500 

11.729 

11.834 

11.838 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUM 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

8-02 

0.4946 

13.07 

13.07 

20.00 

17.30 

0.0 

0.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.000 

8.500 

9.800 

9.000 

AREA 

6.576 

6.448 

10.818 

6.645 

10.820 

13.652 

AREA 

6.587 

6.526 

10.959 

6.690 

10.984 

13.765 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

8-03 

0.4946 

13.07 

13.07 

20.20 

17.00 

0.0 

0.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.000 

9.400 

9.400 

9.400 

AREA 

6.875 

6.783 

12.888 

6.938 

6.487 

11.361 

AREA 

6.818 

6.684 

13.028 

6.990 

6.661 

10.829 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

8-04 

0.4946 

13.07 

13.07 

19.60 

18.00 

0.0 

0.0 

ATTEN 

AREA 

N2 

7. 039 

FEED 

H2S 

9.000 

8.778 

S02 

9.400 

7.789 

N2 

7.066 

PROD 

H2S 

9.40C 

9.841 
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9.800 

12.118 

AREA 

6.977 

8.645 

7.842 
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TABLE  04  (CONT  D) 


RAW  DATA 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

8-05 

0.4946 

13.11 

13.11 

20.  OC 

17.70 

0.0 

0.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.000 

9.800 

9.000 

10.000 

AREA 

7.113 

8.651 

8.469 

7.127 

7.254 

12.393 

AREA 

7.118 

8.671 

8.628 

7.096 

7.246 

12.291 

AREA 

7.096 

9.055 

8.711 

7.132 

7.270 

12.370 

CAT 

BED 

WALL 

REACT 

FEED 

H20 

RUN 

WT. 

TMP 

TMP 

PRESS 

D/P 

PCT 

TMP 

9-01 

0.5091 

13.15 

13.15 

19.00 

3.60 

0.0 

0.0 

PEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

14.103 

26.409 

59.487 

23.677 

25.833 

50.488 

AREA 

14.047 

26.319 

59.633 

23.546 

25.049 

51 .404 

AREA 

14.200 

26.154 

59.644 

23.399 

25.400 

51.199 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

9-02 

0.5091 

13.11 

13.11 

19.00 

3.60 

4.0 

76.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

14.081 

25.833 

60.085 

8.032 

9.762 

22.287 

AREA 

14.182 

25.978 

59.839 

8.812 

11.009 

23.633 

AREA 

14. 135 

25.759 

60. 105 

8.348 

10.390 

22.901 
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TABLE  04  (CONT  D) 


RAW  DATA 

/ 


RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

9-03 

0.5091 

13.10 

13.10 

19.00 

3.20 

8.0 

76.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

9.800 

AREA 

14.037 

26.419 

59.543 

10.199 

13.676 

13 .664 

AREA 

14.015 

26.399 

59.584 

10.895 

14.799 

15.067 

AREA 

14.160 

26.089 

59.749 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

10-1  0.5091 

13.06 

13.06 

18.00 

12.20 

0.0 

0.0 

N2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

6.488 

9.400 

14.729 

10.000 

29.603 

17.052 

9.400 

30.119 

10.000 

52.828 

AREA 

6.538 

15.105 

29.129 

17.059 

30.322 

52.618 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

10-2 

0.5091 

13.04 

13.04 

18.00 

12.20 

4.0 

76.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

6.491 

16.586 

28.567 

6.117 

13.301 

20.193 

AREA 

6 . 493 

16.674 

28.925 

6.343 

13.364 

21.490 

AREA 

6.504 

16.683 

28.964 

6 . 348 

13.340 

21.532 
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TABLE  04  (CONT  D) 


RAW  DATA 


CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

10-3  0.5091 

13.04 

13.04 

18.20 

12.20 

8.0 

81.0 

N2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

12.047 

9.400 

31.994 

10.000 

55.957 

14.552 

9.400 

32.758 

10.000 

52.688 

AREA 

12.209 

31.769 

56.021 

14.793 

32.493 

52.713 

AREA 

12.067 

31.881 

56.050 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

10-4  0.5091 

13.04 

13.04 

17.70 

12.20 

12.0 

82.0 

N  2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

12.287 

9.400 

28.641 

10.000 

59.071 
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9.400 

28.936 

10.000 

56.982 

AREA 

12.189 

28.464 

59.345 

14.021 

28.610 

57.368 

AREA 

12.046 

28.708 

59.244 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

10-5  0.5091 

13.10 

13.10 

17.80 

12.20 

16. 0 

81.0 

ATTEN 

AREA 

AREA 

AREA 


N2 

11.506 

11.478 

6.531 


FEED 

H25 

9.400 

27.425 

27.517 

15.759 


S02 

10.000 

61.066 

61.004 

35.259 


N2 

12.909 

5.608 

5.703 


PROD 
H2S 
9.400 
27.610 
12.195 
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10.000 

59.280 

26.083 

25.850 
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TABLE  C-4  (CONT  D) 


RAW  DATA 


CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

11-1  0*5091 

13.12 

13.12 

is. eo 

12.30 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

9.800 

9.400 

9.800 

AREA 

14.671 

27.371 

57.957 

18.073 

23.298 

58.627 

AREA 

14.591 

27.396 

58.011 

18.097 

23.025 

58.887 

AREA 

18.029 

23.192 

58.777 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

11-2  0.5091 

13.10 

13.10 

18.30 

12.20 

4.0 

76.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

9.800 

9.400 

10.000 

AREA 

14.648 

27.064 

58.286 

10.571 

14.864 

74.563 

AREA 

14.619 

27.039 

58.340 

10.655 

14.791 

74.552 

AREA 

14.653 

27.076 

58.270 

RUN 

CAT 
WT . 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

11-3 

0.5091 

13.12 

13.12 

18.00 

12.30 

8.C 

81.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

9.800 

9.400 

9.8C0 

AREA 

15.018 

27.584 

57.397 

6.217 

9.255 

20.736 

AREA 

15.094 

27.615 

57.290 

6.189 

9.175 

20.643 
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TABLE  04  (CONT  D) 
RAW  DATA 


CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

11-4  0.5091 

13.10 

13.10 

17.80 

12.30 

12.0 

81.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

9.800 

9.400 

9.800 

AREA 

15.144 

27.513 

57.341 

5.907 

9.133 

19.979 

AREA 

15.055 

27.707 

57.236 

6.079 

9.301 

20 • 644 

AREA 

5.923 

9.294 

20.231 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

11-5  0.5091 

13.10 

13.10 

17.70 

12.30 

20.0 

81.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

9.800 

9.400 

9.800 

AREA 

15.060 

27.698 

57.240 

5.711 

9.261 

19.752 

AREA 

15.031 

27.705 

57.262 

5 . 595 

9.027 

19.238 

AREA 

15.032 

27.782 

57.185 

5.655 

9.191 

19.462 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

12-1  0.5091 

13.12 

13.12 

17.70 

12.30 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

SO  2 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

13.497 

25.091 

61.411 

17.025 

24.346 

58.604 

AREA 

13.492 

25.307 

61.200 

16.997 

24.474 

58.527 

AREA 

13.535 

25.100 

61.363 

17.092 

24.325 

58.582 
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TARLE  04  (CONT  D) 


RAW  DATA 


CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMp 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

12-2  0.5091 

13.13 

13.13 

18.00 

12.20 

4.0 

77.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

13.630 

25.082 

61.286 

6.372 

9.683 

23.594 

AREA 

13.544 

25.175 

61.279 

6.409 

9.668 

23.381 

AREA 

13.577 

25.060 

61.362 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

12-3  0.5091 

13.12 

13.12 

18.00 

12.00 

8.0 

76.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

9.400 

10.000 

AREA 

13.505 

25.945 

60-548 

15.380 

25.239 

50.379 

AREA 

13.519 

26.037 

60 . 443 

15.440 

25.295 

59.264 

AREA 

13.419 

25.710 

60.869 

15.202 

25.427 

59.369 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

13-1 

3 . 8684 

13.11 

13.11 

17.20 

8.30 

0.0 

0.0 

ATTEN 

AREA 

AREA 

N  2 

24.284 

24.349 

FEED 

H2S 

9.4C0 

29.406 

29.478 

SO  2 

10.000 
46.309 
46* 180 

20 

20 

N2 

.158 

.123 

PROD 

H2S 

10.000 

37.188 

36.453 

S02 

10.000 

0.000 

0.000 
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TABLE  04  (CONT  D) 


RAW  DATA 


CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

13-2  3.8684 

13.11 

13.11 

17.30 

8.40 

0.0 

0.0 

N2 

FEED 

H2S 

S02 

N2 

PROD 

H2S 

S02 

ATTEN 

AREA 

20.952 

9.400 

25.219 

10.000 

53.827 

6.689 

10.000 
4  •  4  7  8 

10.000 

0.532 

AREA 

20.927 

25.453 

53.618 

6.720 

4.757 

0.495 

AREA 

21.051 

25.160 

53.787 

6.725 

4.238 

0.723 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

13-3  3.8684 

13.05 

13.05 

17.20 

8.30 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

10.000 

10.000 

AREA 

16.929 

24.274 

58.796 

6.520 

3.358 

3.223 

AREA 

16.800 

23.783 

59.416 

6.516 

3.836 

2.348 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

13-4 

3 . 8684 

13.11 

13.11 

8.20 

1.00 

0.0 

0.0 

FEED 

PROD 

• 

N2 

H2S 

S02 

N2 

H2S 

S02 

AT  T  CN 

9.400 

10.000 

10.000 

10.000 

AREA 

13.201 

18.494 

68.303 

6.619 

1 . 743 

13.377 

AREA 

13.244 

18.405 

68.350 

6.621 

1.635 

14.668 

ADCA 

6.621 

2.006 

12.712 
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TABLE  C-4  (COMT  D) 


RAW  DATA 


CAT 

RUM  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PC  T 

H20 

TMP 

13-5  3.8694 

13.13 

13.13 

19.20 

8.10 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

AT  TEN 

9.400 

9.800 

10.000 

10.000 

AREA 

13.881 

19.220 

66.897 

8.871 

1.865 

58.423 

AREA 

13.891 

19.218 

66.989 

8.768 

1.922 

57.884 

CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

14-1  3.8684 

13.12 

13.12 

17.00 

4.20 

0.0 

0.0 

FEED 

PROD 

N2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

10.000 

10.000 

AREA 

15.895 

26.240 

57.863 

6.616 

6.669 

1.507 

AREA 

15.899 

26.145 

57.954 

6.648 

6.020 

1 .154 

AREA 

15.820 

26.253 

57.926 

RUN 

CAT 

WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

14-2 

3. 8684 

13.14 

13.14 

17.30 

15.30 

0.0 

0.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTFN 

9.400  10.000 

10.000 

10.000 

AREA 

16. 103 

26.178  57.718 

6.638 

7.546 

1.813 

AREA 

16.130 

25.885  57.984 

6.625 

1 . 7  4  3 

1.820 

AREA 

15.848 

25.705  58.445 

6.643 
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TABLE  04  (CONT  D) 


RAW  DATA 


CAT 

RUN  WT. 

BED 

TMP 

WALL 

TMP 

REACT 

PRESS 

FEED 

D/P 

PCT 

H20 

TMP 

14-3  3.8684 

13.11 

13.11 

17.20 

36.70 

0.0 

0.0 

FEED 

PROD 

N  2 

H2S 

S02 

N2 

H2S 

S02 

ATTEN 

9.400 

10.000 

10.000 

10.000 

AREA 

16.203 

25.943 

57.853 

6.642 

8.779 

2.673 

AREA 

16.291 

25.713 

57.994 

6.663 

8.496 

2.934 

AREA 

16.322 

25.884 

57.792 

6.662 

8.667 

2.718 
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MAINLINE  MAT  BAL 
MAINLINE  MAT  BAL 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


*****  *  ********  *  -it  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ***********  *  *  *  *  *  *  *  *  *  * 


* 


* 


*  * 

*  MATERIAL  BALANCE  ON  THE  RECYCLE  REACTOR  FOR  H2S-  * 

*  S02  REACTION.  INPUT  IS  REQUESTED  ON  THE  TELETYPE  * 

*  IN  A  FREE  FORMAT  INPUT  STYLE.  THE  RAW  DATA  AND  THE* 

*  PROCESSED  DATA  MAY  BE  ENTERED  IN  USER  DEFINED  DISK* 

*  FILES  BY  THE  PROGRAM.  * 

*  * 


*****************************************  *  **********  *  * 


DEFINE  FILE  100  (  5 1  *  106 » U . NEXT )  » 200 ( 5 1  *  80 > U *  NEXT ) 
DIMENSION  CR ( 4  ♦  6  )  *  TEMPO)  »  PRESS  O)  *FDCOM(7)  »PRCOM(7) 
*  *  BAL ( 

12*7) *  V ( 3 ) *  T  (  2  *  3  ) >P(2*2) *DP(3) *PCR(4*6) *WFLOW(2) 
DATA  V/ 22 40 3. 60 *22144. 24 *21889. 30/ 

DATA  T/5. 3155  *18. 0706  *6. 6860 *17. 9644 *6. 3627*  17. 98 63/ 
DATA  P/15. 002 *.25101 *716. 47 *6. 545 2/ 

DATA  DP/-. 0420*. 8962*. 00104/ 

DATA  WFLOW/. 15581 » .52044/ 

CALL  GETTY ( LUNR ) 

LUNW=LUNR 
I  STRT  =  1 
I END  =  0  « 


***  DETERMINE  THE  DAT A  SOURCE •• TTY ( NEW )  OR  DISK  (OLD) 
WRITE ( LUNW* 121 ) 

121  FORMATt'FILE  STORAGE  FLAG ( 1-STORE *2-NO >  * / * FUNCT ION 
*  FLAG ( 1-PROC  *  * 

1  'NEW  DATA  OR  2-PROC  FILE  DATA ) $ ' / '  PRINT  FLAG ( 1-TTY  *  2 
*-NONE ' ) 

CALL  FF I NP ( LUNR  *  3  » 0  *  IS TOR  *0  *  I FUNC  >  0* I  PR  *  I EROR ) 

GO  TO ( 8  8  »  33 )  » IFUNC 


***  DATA  READ  FROM  DISK  FILE 


33  WRITE ( LUNW*122 ) 

122  FORMA T (  'HOW  MANY  POINTSS 


♦AT  WHAT  RUN  NO. 


*  TO  START  AT ' ) 

CALL  F F  I  N P ( L U N R  *  2  *  0  * N U M  *  0  * 


I STRT  » I EROR ) 


ISTRT=ISTRT-1 
I END= I STRT+NUM 


IN  THE  FILE 


t  tic;  ^  ( T x  t.toJit  .  JI  i  I  -  - 

(  )  _  t  ,  )  OX  it  (  >d  •  U  I'Uf)  3  -  012  .0 

OJAS#* 


v*}  ..  j  t  tdt^)  y  t  ( t  j^Qt  is#s)^t  i  «  jmciv  t(T,^; 

\  C.v  icISttkS.^AISStCd.eCASSW 
\  .  .  t  \  A  f. .  t  AAcc  .  Vi  *  C  j  6  •  d  •  60  ~j*sXtCC?X£«C\T  AT  AC 

e.  »  »  14*:  ;  ..sl  ,.5X  c  ta  ' 

\A(  I  .  C  »<S  .  t  ;S*C.-\«a  T  u 

\-AAjS.  .  t  X8fi£|  .\W0J  .  AT  A  - 


irT  T2I 
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MAINLINE  MAT  BAL  ...(CONT'D) 

34  I STRT  = I STRT  +  1 
NF I L= I STR  T 

READ  ( 100 1 NF I L ) NF I L  *NFDCR  *NPRCR  * INCOM* WC  *RUN  *TEMP 

*  *PRESS  *MFH2S » 

1MFS02  *MPH2S*MPS02  » ( (CR( I  * j ) >  PCR  ( I *  j) *1=1*4)  *J=1*4)  »DP 

*  *  WFPCT  *  WTMP 

WRITE (LUNR*123)  ISTRT 
123  FORMAT (  • RUN  NO* ■ 1 X  *  I  3  *  IX  * • F I N I  SHED »  ) 

GO  TO  35 


C  ***  DATA  READ  FROM  TTY 

88  WR I TE ( LUNW  *90 ) 

90  FORMAT (  *  WT  OF  CATALYST ( GM ) SNUMER I C  FILE  NO.') 

CALL  FF I NP ( LUNR *  2  *  1  * WC  *  0  >  NF I L  » I EROR ) 

WRITE (LUNW *100) 

100  FORMAT ( ' RUN  NO.*  NO.  OF  FEED  G.C.*NC»  OF  PROD.  G • C - ' ) 
CALL  FF I NP ( LUNR  *3  *3  *RUN*0*NFDCR  »0*NPRCR* I EROR ) 

I NCOM=0 

WRITE (LUNW >105) 

105  FORMAT (• TEMP-REACT.  BED  *  WALL , FLU  I D  BED*  PRESS-  REACTOR 

*  *  FEED  D/P  *  ) 

CALL  FFINP(LUNW*5*1»TEMP( 1 ) *1  *  TEMP (2)  *1  *  TEMP (3 )  *1  * 

1  PRESS (2) ,1, PRESS (3) *  I EROR) 

PRESS ( 1 ) =30.0 
WR I TE ( LUNR  *106) 

106  FORMAT (  *  SPEC  I FY  H20  FEEDER  PCT  AND  TEMP*) 

CALL  FF I NP ( LUNR  *2  > 1 » WFPCT  » 1  * WTMP  » I EROR ) 

WRITE ( LUNW  *  1 08 ) 

108  FORMAT (« ATTEN.  CODE ' » / * ' 1-9 . 8  *  2-9 . 4  *  3-9 . 0 » 4-8 . 5 »  5 

*-10.0 • ) 

CALL  FF I NP ( LUNR  *2  *0  *MFH2S  » 0 *MFS02  *  I EROR ) 

WRITE (LUNW* 113) 

113  FORMAT ( ’FEED  G.C*  AREAS-N2 »H2S * S02 »H20 ' ) 

DO  116  I  =  1 »  NFDCR 

116  CALL  FF I NP ( LUNR *4  *  1 >CR ( I  *  1  )  > 1 *CR (  I  *2 )  > 1 *CR  (  I  » 3  )  *  1 *CR ( I 

*  * 4 ) *  I EROR ) 

WRITE ( LUNW* 109 ) 

109  FORMAT (■ SPEC  I FY  ATTEN.  CODE — H2S  AND  S02 '  ) 

CALL  FF INP ( LUNR  *2  *0  *MPH2S *0 *MPS02  *  I EROR ) 
WRITE(LUNW*117) 

117  FORMAT (’ PROD.  G.C.  AREAS*) 

DO  120  1  =  1*  NPRCR 

120  CALL  FF I NP ( LUNR * 4  *  1  * PCR ( I  *  1 ) » 1 » p0R ( I  *  2 )  » 1  * PCR (  I  *  3 )  *  1 

*  »PCR (  I *4  )  » 

II EROR) 

GO  TO  (40*35)*  ISTOR 
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MAINLINE  MAT  BAL 


. . . (CONT ' D ) 


***  STORE  RAW  DATA  IN  DISK  FILE. 

4  0  WRITE ( 100 1 NF I L ) NF I L  *NFDCR  *  NPRCR  * I NCOM * WC *  RUN  *  TEMP 
*  *PRESS*MFH2S* 

1MFS02  *MPH2S*MPS02 * ( (CR ( I > j ) >PCR (I*j)*I=l*4)*J=l*4)»DP 
**WFPCT* WTMP 

35  CALL  CHR0M(FDC0M*CR*MFH2S*MFS02*NFDCR* INCOM) 

CALL  CHR0M(PRCQM»PCR*MPH2S»MPS02*NPRCR  * INCOM) 


CALCULATE  H20  RATE  (CC/HR) 
WRATE=WFLOW ( 1 ) +WFLOW( 2 ) *WFPCT 


#**  CONVERT  TO  GM/HR 

WRATE=WRATE/ ( 1 . 00  597-. 000 1 1*WTMP ) 
IF (WFPCT ) 23  >23*24 

23  WRATE=0 • 

24  CONTINUE 


***  CALCULATE  TEMPERATURES  FROM  CALIBRATION  COEFFS. 


DO  14  J=  1  *3 
TMP=0 . 

DO  15  1=1*2 

15  TMP  =  TMP  +  T ( I  * J ) *TEMP ( J ) ** ( I ”1 ) 
14  TEMP ( J ) =TMP 


###  CALCULATE  ABS  PRESSURES  FROM  CALIBRATION  COEFFS. 
J  =  2 

PRS  =  0  • 

DO  17  1=1*2 

17  PRS=PRS+P( I *J)*PRESS(J)**( I“1 5 
PRESS ( 2 ) =PRS 
PRESS ( 1  )  =  22  •  5 


***  CALCULATE  FLOW  RATE 

PRESS ( 3 ) = PR ESS ( 3 ) **0. 5 
FDPs0 

DO  19  1=1*3 

19  FDP=FDP+DP( I )*PRESS (3 
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MAINLINE  MAT  BAL  ...(CONT'D) 

PRESS ( 3 )  =FDP 


C  **#  FLOW  RATE  COMPOSITION  CORRECTION 

R 0 M I  X  = ( 28 • *FDCOM ( 1 ) +34 . *FDCOM ( 2 ) +6  4. *FDCOM ( 3 )  ) 
*/ ( FDCOM < 1 ) *V ( 1 ) +  FDCO 
1M ( 2 ) *V ( 2  ) + FDCOM ( 3 ) *V ( 3 ) ) 

PRESS ( 3 ) = PR ESS ( 3 ) * ( 28 • /V ( 1 ) /ROM I  X ) **0 • 5 


C  ***  CALCULATE  MATERIAL  BALANCE 


C  ***  SUMV= AVG •  MOLAR  VOL.  OF  THE  FEED  GAS. 

SUMV= ( FDCOM ( 1 ) *V ( 1 J+FDCOM ( 2 ) *V ( 2 ) +FDCOM ( 3 ) *V ( 3 ) ) 
*/28317.016 


C  ***  FEED  FLOW  FOR  N2*H2S*S02 

DO  10  J  =  1  *  3 

10  BAL ( 1  * J )= FDCOM ( J ) *PRESS ( 3 ) /SUMV 


C  ***  FEED  FLOW  FOR  H20 

BAL ( 1 *  4 ) =WR ATE/18.0588 


C  ***  PRODUCT  FLOWS  FOR  N2 ♦ H2S * S02 » H20* ATOM  I C  S*  AND  H2 

BAL ( 2*1 ) =BAL (1*1) 

BAL(2*2 ) =  B  A  L ( 2*1 ) * ( PRCOM ( 2 ) *V ( 1 ) /PRCOM ( 1 ) /V( 2 )  ) 

BAL ( 2 *3 ) =BAL ( 2 ♦ 1 ) # ( PRCOM ( 3 ) *V ( 1 ) /PRCOM ( 1 ) / V ( 3) ) 

BAL (2*4) =BAL ( 1*4)+BAL( 1  *  2 ) -B AL ( 2 » 2 ) 

BAL ( 2  *5 ) =  3* ( BAL ( 1  *  2 ) -BAL ( 2 • 2 )  ) /2 . 

BAL(2»6)=3AL(1*2)“BAL(2*2)-2*(BAL( 1  *  3 ) -BAL ( 2 ♦ 3 )  ) 


C  #**  CALCULATE  AVERAGE  MOLECULAR  WEIGHT  OF  SULFUR 

PRS  =  PRESS(2 ) /76  0 • *BAL ( 2  *  5 ) / 8 • 

RT  EMP = ( TEMP ( 1 )+TEMP(2)  ) /2.+273. 

22  CALL  FREM(PRS*RTEMP*XS) 

PRS1=PRESS(2)/760.^BAL(2*5)/XS 

IF ( ABS ( (PRS-PRS1 )/PRSl ) -0 • 005 )  20*20*21 
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MAINLINE  MAT  BAL 


.  •  .  ( CONT * D ) 


21  PRS=PRS 1 
GO  TO  22 

20  BAL ( 2  ♦  5 ) =BAL (2*5) /XS 


***  CALCULATE  REACTION  RATES 

RXH2S=(BAL(1*2)-BAL(2»2) ) /WC 
RXS02= (BALI 1*3)-BAL(2*3) ) /WC 


***  CALCULATE  FEED  AND  PRODUCT  H2S/S02  RATIOS 

FDRAT=BAL( 1 *2 ) /BAL ( 1 *3 ) 
PRRAT=BAL(2*2)/BAL(2>3) 


***  CALCULATE  CONVERSION  OF  H2S  AND  S02 

H2SCN= ( BAL (1*2) -BAL (2  *2 )  ) /BAL ( 1 *2 ) *100 • 
S02CN= ( BAL ( 1  *  3 ) -BAL (2  *3 )  ) /BAL ( 1 » 3 ) #100. 
WFA=WC /BAL ( 1*2) 


***  ADJUST  FEED  COMP.  TO  ALLOW  FOR  AUX.  H20  FEED 

TOT=0. 

DO  9  J= 1  * 4 
9  TOT=TOT+BAL ( 1 »J ) 

DO  11  J - 1 ♦ 4 

11  FDCOM ( J ) =BAL ( 1 » J ) /TQT*100. 


***  CALCULATE  PARTIAL  PRESSURES  IN  REACTOR 

TOT=0 • 

DO  12  J=l*5 

12  TOT=TOT+SAL(2*J) 

DO  13  J=l>5 

13  PRCOM(J ) =  BAL { 2  *  J )#PRESS( 2 ) /TOT 


#*#  DATA  OUTPUT 
GO  TO  (43*44 ) »  IPR 


***  TTY  OUTPUT 

43  CALL  OUTPTIRUN. PRESS. RXH2S .RXS02 . RTEMP . FDRAT .PRRAT 
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MAINLINE  MAT  BAL  ••.(CONT'D) 

*  *H25CN*SQ2CN 

1  ♦  FDCOM  *  PR COM  *BAL»LUNW*WFA*XS» I  PR) 

44  GO  TO  (41*42)*  ISTOR 


C  #*#  FILE  OUTPUT 

41  WRITE (200  *  NF I L  >  H2SCN * WFA *  RUN ♦ RTEMP * FDRAT *  PRESS ( 2 ) 
*  *  PRESS ( 3 ) *  RXH2S  » 

1  RXS02  *S02CN*PRR AT  *XS» FDCOM *PRCQM* BAL 

42  IF ( ISTRT-IEND) 34*65*65 
65  CALL  EXIT 

END 


'  7  .  )  . . . 
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SUBROUTINE  CHROM 
SUBROUTINE  CHROM 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


*  * 

*  CHROM  * 

*  * 

#  # 

*  CHROM  CALCULATES  STREAM  COMPOSITIONS  FROM  THE  * 

*  CHROMATOGRAPHIC  AREA  RESULTS  USING  THE  CALIBRATION  * 

*  COEFFICIENTS  DETERMINED  USING  THE  INTERNAL  STANDARD* 

*  PROCEDURE  * 

*  * 


*■**#**#•# -***-*-«•  **#*tt*#***tttt***********-8-#******-**  •****# 


SUBROUTINE  CHROM ( COMP *CR *MH2S *MS02 *N» INCOM) 

DIMENSION  COMP (7) ♦  CR ( 4  *6  ) *  ATTEN ( 6 ) *HSN2(2)  *SON2(2) 

*  *  A  {  5  ) 

DATA  SON2/. 05186  * .74922/ >  HSN2 /. 09099 *• 8 6043 / 

DATA  A/9. 8*9. 4*9. 0*8. 5, 10./ 

ATTEN(1 ) = 120 • 

ATTEN ( 2 )=56.-5.5*A(MH2S) 

ATTEN ( 3 )=56.-5.5*A(MS02 ) 

ATTEN ( 4 ) = 1 • 

ATTEN  t  5  )  =  1  • 

ATTEN ( 6 )=1. 

XN  =  N 

DO  1  J=  1  ♦  6 
CR (4* J  )  =0. 

DO  1  I  =  1  *  N 

1  CR(4, J)=CR(4*J)+CR( I *J)*ATTEN( J)/XN 

HNRAT=HSN2 ( 1 ) /100.+HSN2 ( 2 )*CR (4*2 ) /CR( 4* 1 ) 

SNRAT=SON2 ( 1 ) / 100 • +SON2 ( 2 ) *CR (4*3 ) /CR( 4* 1 ) 

COMP ( 1 ) = 1 • / ( 1 .+HNRAT+SNRAT ) 

COMP ( 2 ) =HNR AT*COMP ( 1 ) 

COMP { 3 ) = 1 . -COMP ( 1 ) -COMP ( 2 ) 

RETURN 

END 
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APPENDIX  D 
DATA  HANDLING 

The  raw  and  processed  data  were  stored  in  user  defined  disk 
files  by  the  data  processing  coreload.  The  data  were  then  available 
to  various  off-line  coreloads  for  the  following  purposes 
1-  punching  data  on  cards 

2.  restoring  data  from  cards  to  the  files 

3.  displaying  data 


n  n  n  n  n  n 
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MAINLINE  PDATA 
MAINLINE  PDATA 


D- 


#********#*##******##*#**#**##**#***###*#######^###<|^ 
*  * 

*  * 

*  PUNCH  DATA  FROM  EITHER  OF  THE  DATA  FILES*  * 

*  * 
**************************************  jt*************** 


DEFINE  FILE  100 ( 5  1  ♦  106  , U > NEXT ) 

DEFINE  FILE  200 ( 5  1 , 80  > U > NEXT ) 

DIMENSION  PRESS  (3)  » TEMPO)  > CR ( 4  *  6 )  , PCR ( 4 ♦ 6 ) , DP ( 3 ) 
DIMENSION  VAR (40) 

DATA  I  AST / ' * ' / 

LUNW=  9 

LUNR  =  LUNW 

WRITE(LUNW»100) 

3  WRITE! LUNW >110) 

110  FORMAT (' 1-RAW  FILE*  2-PR0C.  FILE') 

CALL  FFINP(LUNR  *1 »0*IFL* IEROR) 

WRITE ( LUNR* 104) 

1 04  FORMAT (  '  HOW  MANY  BLOCKS  IN  This  FILE') 

CALL  FFINP ( LUNR » 1 *0 *NBLGC » IEROR) 

DO  50  I  L=  1  *  N8LQC 
WRITE (LUNW *105)  IL 

CALL  FFINP(LUNR*2»0»ISTRT»  0 » I  END  *  I EROR ) 

GO  TO  (1*2)  *  I FL 
1  DO  40  NREC= I STRT  *  I  END 
NUM  =  6 

READ  ( 100 »NREC)NFIL*NFDCR*NPRCR* I NCOM * WC *  RUN  *  TEMP 
*  *  PRESS  *MFH2S  * 

1MFS02  *  MPH2S  » MPS02 *((CR(I*j)*PCR(I»j)  *1  =  1*4) » J=1  > 4)  »DP 
* »WFPCT  *WTMP 
CALL  CHECK 

WRITE(5*200)  RUN *WC*TEMP *PRESS 
CALL  CHECK 

WRITE(5*201)  NFDCR  *NPRCR , I NCOM ,MFH2S , MFS02 *MPH2S *  MPS02 
IF ( I NCOM-O ) 20  *20  *21 

20  NUM=4 

21  CONTINUE 

DO  22  L=l* NFDCR 
CALL  CHECK 

22  WRITE(5»202)  ( CR ( L > M ) * M= 1 » NUM ) 

DO  23  L=1»NPRCR 

CALL  CHECK 

23  WRITE(5*202)  ( PCR ( L  *M )  »M  =  1 *NUM ) 

CALL  CHECK 

WRITE (5 *101)  DP  * WFPCT *  WTMP 
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MAINLINE  PDATA 


. • . ( CONT 1 D ) 


CONTINUE 
GO  TO  50 

DO  11  NF I L= I STRT  *  I  END 
READ ( 200 ' NF I L )  VAR 
CALL  CHECK 
WRITE (5  » 102  ) 

FORMAT (A4  ) 

CALL  CHECK 
WR I TE ( 5  *  1 0  1  ) 

CALL  CHECK 
WR I TE ( 5  » 10 1 ) 

CALL  CHECK 
WR  I  TE  (  5  » 10 1 ) 

CALL  CHECK 
W  R  I  T  E  (  5  » 1 0  1  ) 

CALL  CHECK 
WRITE (5  *101 ) 

CONTINUE 
FORMAT (  *  PUNCH 
FORMAT ( 8F 10 • 5 ) 

FORMAT  (  ‘BLOCK' *13*/* 'STARTING 
FORMAT (A4,4X,F6.4,4X*6F6.2 ) 
FORMAT (715) 

FORMAT (6F8. 5) 

READ ( 5 , 1 0  3 )  I 
FORMAT ( A  1  ) 

IF ( I -  I  AST ) 13,9*13 
CALL  STACK 
GO  TO  14 
WRITE! LUNR  *  106 ) 


VAR ( 3  ) 

VAR ( 1  )  *  VAR ( 2 )  » ( VAR ( J) * J  =  4  *9 ) 
( V  A  R ( J ) *  J  =  10  » 1 7 ) 

(VAR  <  J ) *  J= 1 8*25) 

( VAR ( J ) » J  =  26 , 33 ) 

{ VAR ( J ) * J=34 ,40 ) 

OUT  DATA  FILES' ) 


RECORDS  LAST  RECORD'  ) 


FORMAT (' 1-CONTINUE*  2-EXIT') 
CALL  FFINP(LUNR*1»0*IDEC,IEROR) 
GO  TO  (3,12),  IDEC 
CALL  EXIT 
END 
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SUBROUTINE  CHECK 
SUBROUTINE  CHECK 

***************  *****************************  *********** 


*  * 

*  * 

*  PUNCH  STATION  CHECKED  FOR  BLANK  CARDS.  * 

*  * 


*************************  ***************************** 


SUBROUTINE  CHECK 
DIMENSION  CHAR ( 20 ) 

DATA  BLANK/’  '/ 

14  READ(5*99)  CHAR 

99  FORMAT (20A4) 

DO  12  I D  = 1 »  2  0 

IF (CHAR  (  ID) -BLANK) 11 » 12*11 

12  CONTINUE 

13  RETURN 

11  WR I TE ( 1 >98) 

98  FORMAT (' NONBLANK  CARD  IN  PUNCH**PUSH  START  TO  RESUME 
*  EXECUTION' ) 

PAUSE 
GO  TO  14 
END 
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MAINLINE  RAWRD 
MAINLINE  RAWRD 

#******#*##*#* tt*###*****#*#*  *************#********-**** 


*  * 

*  * 

*  READ  DATA  FROM  CARDS  INTO  RAW  DATA  FILE.  * 

*  * 


•«•**##******  #*  *  #*#->*•  *  #**-***-*  *****##********-************* 


DEFINE  FILE  100 ( 5 1  *  106  *U *NEXT  ) 

DIMENSION  PRESS  (3)  ♦  TEMPO)  *CR  (  4  *6  )  *PCR  (  4  *6  )  *  DP  (3  ) 

LUNR=9 

LUNW=9 

WR I TE ( LUNW  » 100 ) 

100  FORMAT ( ' READ  IN  RAW  DATA') 

WR I TE ( LUNW  *101) 

101  FORMAT ('HOW  MANY  BLOCKS  OF  RECORDS') 

CALL  FFINP(LUNR*1*0»NBLQC* IEROR) 

DO  50  I L= 1 *  NBLOC 
WR I TE ( LUNW  *  102  )  IL 

102  FORMAT (  ' BLOCK ' *  I  3  * / * ' START  I NG  RECORDS  LAST  RECORD') 
CALL  FFINP(LUNR*2*0*ISTRT  »  0  .  I  END * I EROR ) 

DO  40  I J=  ISTRT  * I  END 
DO  19  I  *  1  #4 
DO  19  J=1  »4 
CR ( I  * J  )  =0. 

19  PCR ( I  ♦  J  )  =0. 

NF  I L-  I  J 


200 

201 

20 

21 

22 

23 

202 

203 


NUM  =  6 

READ (  5  * 200  )  RUN  * WC * TEMP » PRESS 
FORMAT (A4*4X*F6.4*4X*6F6.2) 

READ ( 5  *201 )  NFDCR  *NPRCR  * INCOM  *MFH2S  *MFS02  *MPH2S  *MPS02 

FORMAT (715 ) 

IF ( INCOM-Q ) 20*20  *21 
NUM  =  4 
CONTINUE 
DO  22  L= 1 *NFDCR 
READ(5  *202)  ( CR ( L *M ) * M= 1  * NUM ) 

DO  23  L=1*NPRCR 
READ (5 *202)  (PCR(L*M) *M=1*NUM) 

FORMAT (6F8. 3 ) 

READ (5  *203)  DP  *  WFPCT  * WTMP 

WRITeIiOO • I J)NFIL* NFDCR* NPRCR* I NCOM*WC* RUN* TEMP* PRESS 


1MFS02 *MPH2S*MPS02  * ( ( CR ( I » U ) *PCR (I*J)»I=1*4)*J=1»4) 


* .WFPCT  *WTMP 
40  CONTINUE 


.DP 
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HO*  (  A«  x~ut  (  At  X*  I  «  tut  I  )*0*t  (Lt  I  )  0)  )  t  S  *S083MX 

*MTW«TO<nW«* 

3UW I THOO  OA 


n  n  o  o  o  n 


MAINLINE  RAWRD 


• . • (CONT ' D ) 


50  CONTINUE 
60  CALL  EXIT 
END 


,  <  »  o )  •  • . 


OflwAfl  3V’  I  J/t  I  AN* 


BUtflTHOD  C<? 

TlXB  J J AD  0 


Q\A3 


. 
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MAINLINE  PRORD 
MAINLINE  PRORD 

********************************** ******************** 
*  * 

*  READ  DATA  FROM  CARDS  INTO  THE  PROC.  DATA  FILE.  * 

*  * 
****************************************************** 


DEFINE  FILE  200 ( 5 1 * 80 *U * NEXT ) 

DIMENSION  VAR (40 ) 

9  READ (3*100)  I STRT  >  I  END 

100  FORMAT (215) 

I F ( I STRT )  12*12*10 

10  DO  11  NF I L= I STRT  *  I  END 
READ (5*102)  VAR ( 3 ) 

102  FORMAT ( A4  ) 

READ( 5  *  10  1  )  VAR ( 1 ) *VAR ( 2 ) * l VAR ( J ) * J=4  *40 ) 

101  FORMAT (8F10. 5 ) 

11  WR I TE ( 2  00 ' NF I L )  VAR 
GO  TO  9 

12  CALL  EXIT 
END 


QH 0H3  3tfiJtfIAM 


31/11 JVU  AM 


jn  AT ;  .OOfc^  ihT  OTt/lI  2GAA0  M033  AT AG  GATH 


* 


<TX3i4«U«03tXe)O0S  3 J 13  3^133(3 

t  0^ )  53  AV  tfOI2H3*IG  ' 
a,3I*TyTSI  ( QQX  «  £  )  CA3fl  9 

(eiS)TAM.fl03  001 
0I*SI*SX(T«Tai)3I 

a^3itTflTei«jnn  xx  oa  ox 

(£)flAV  (S0Xta)aA3fl 


{  -  A)  “A  9  -3  Sv.X 

(0At<>  =  c*  (c)*  AV)f  ($)*AV«  (X)«AV  <XQX*e>0A3fl 

(  2  •  01 38  )  T A  'c  O'  xo: 

f.AV  UI3/'Q0S)3TI^W  XX 

9  OT  00 
TIX3  J J AO  SI 
GM3 
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MAINLINE  OUT 
MAINLINE  OUT 

*  * 

*  * 

*  DISPLAY  OF  PROCESSED  DATA  RECORDS  ON  PRINTER  OR  * 

*  ANY  TELETYPE*  * 

*  * 
********  *  ********  *******  ******  ***********  ******  ******* 


DEFINE  FILE  200 ( 5 1 . 80  * U *  NEXT ) 

DIMENSION  FDCOM ( 7 ) *PRCOM!7) *BAL(2*7) »PRESS(3) 

CALL  GETTY(LUNR) 

WRITE! LUNR  » 1 10 ) 

110  FORMAT( ‘SPECIFY  OUTPUT  DEVICE* ) 

CALL  FFINP(LUNR»1 *  0  *LUNW  * IEROR ) 

I  PR  =  3 

WRITE (LUNR*100) 

100  FORMAT ( 'OUTPUT  OF  PROC.  DATA  DISK  FILE*) 

WR I TE ( LUNR  *101) 

101  FORMAT ('HOW  MANY  BLOCKS  OF  RECORDS') 

CALL  FF I NP( LUNR > 1 *OtNBLOC» IEROR) 

DO  40  1  =  1  * NBLOC 
WR I TE ( LUNR  *  102 )  I 

102  FORMAT!  'HOW  MANY  RECORDS  IN  BLOCK  *  *  1 3 ) 

CALL  FFINP(LUNR*1 » 0  »NUM » IEROR) 

WRITE! LUNR  *  103 ) 

103  FORMAT ( 'WHERE  DOES  IT  START') 

CALL  FF I NP ( LUNR  » 1 *  0  f I STRT  tIEROR) 

I END= I STRT+NUM-l 

DO  30  J= I STRT  » I  END 
NF I L= J 

READ(200'NFIL)  H2SCN ♦ WFA  *  RUN*  RTEMP  * FDR AT *PRESS!2) 

*  >PRESS ( 3 )  ♦  RXH2S ♦ 

1  RXS02 *  S02CN #  PRR AT ♦ XS ♦ FDCOM » PRCOM * BAL 
CALL  OUTPT ( RUN* PRESS *RXH2S*RXS02  * RTEMP  » FDR AT » PRRAT 

*  *H2SCN  t S02CN 

1  *FDCOM*PRCOM*BAL»LUNW*WFA»XS» I  PR) 

30  CONTINUE 
40  CONTINUE 

WR I TE ! 6  *  300  ) 

300  FORMAT!  '1*  ) 

CALL  EXIT 
END 


TUO  3^ I J  :  I  A*' 
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t  £MU  J  J  YT T  30  J  J  AD 
( 0  X  X « 8HUJ ) 3T I £W 


(•3DIV3G  TU^TJO  Y3  l  Dr>98  1  )  T  AMA03  01  i 

(  mQ/3  1  *  WtfUJt  0  •  1  t  fc  >1 U  J  >  I  33  J  J  AD 

£«qqi 

<00itMUJ)3TIfl./ 

( »  •  n  >210  ATAG  .DO«q  30  TU^TUO' )TAM«G3  OCX 

(lOXtfi/ JJ)3T1HW 

(«CU  D3!  '  ■  je  1  .AY  vv  )H'  )  TAM-C -  I  X 

l  05  ^1  ♦  >uJt  >  fOt  I  «>,.iUJ)q/.  133  J  J  AD 

DO  J8/  •  X  3  I  OA  00 
1  '(  SOI  *  >U  J  J  )  3  ’  I  9.1 

.  1  .  •  * v  :  I  1  j  ••  x 

(  -31*  J#  »  0  •  1 1  HIXU J  )  I  33  JJAD 

: £<;■  it .. )  3 ■ :  • 

l'T?ATe  T I  2300  3S3H* 1 > TAMPOB  £GX 

.  *  *  -  »  ■  J  )  -  JJAD 


I-MUK+TflTei  =0tf3I 
G/ 31 *T«Tei*L  0£  00 

L*  J  I  3;1 


(  J22;  -*TASC  uqM3T«t/'U«#  A^Wt/DeSH  (  J  HU '  OOS  )  0A3fl 

.asHXK* (e)283^q«* 
tMCD:.qtMco  ^*ax#TAfifqtKDS02tS08xq  x 

. 

lOSOa«HD2SHt* 
(;>qi  •2X*A3wtfc/UJ*  JA8#M0D«qtM0D03*  X 

3UI  ITHOD  0£ 
3UK IT HOD  OA 
(  00£  «  d i 3T  I  qw 
( • I • >TAMfi03  00£ 
TIX3  JJAD 
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SUBROUTINE  OUTPUT 


SUBROUTINE  OUTPUT 

SUBROUTINE  OUTPT { RUN » PRESS  *RXH2S  .RXS02 *  RTEMP  » FDRAT 

*  »PRRAT  »  H2SCN  * 

1  S02CN.FDC0M*  PR COM  *BAL»LUNW*WFA*XS* I  PR ) 

DIMENSION  PRESS ( 3  )  .PRCOM! 7 ) *FDCOM( 7)  *  BAL  !  2  *  7 ) 

LUNR=  LUNW 
I F ( I  PR- 1 ) 14*14*15 
15  LUNW=  6 
14  WRITE! LUNW * 5 ) 

5  FORMAT (  • 1 '  ) 

WR I TE ( LUNW* 1 )  RUN 

1  FORMAT ( ////10X *  1  RUN  NUMBER  1  *  IX *A4 ) 

IF( LUNW -6)11*11*12 

11  WRITE! LUNW  *  10 ) 

10  FORMAT  (/37X*  '  UN  I  TS  ' //  1 8X  »  '  MASS . GRAM*/) 

WRITE (LUNW*9 ) 

9  FORMAT!  18 X ** PRESSURE . ..MILLIMETERS  OF  MERCURY'/ 

* / 1 8X  * 'TEMPER 

1ATURE . DEGREES  KELV  I N  •  /  /  18X  *  '  T I  ME . HOUR  '  / 

* / 1 8X ♦ 'COMPOS 

1  IT  ION . MOLE  PERCENT  •  /  /18X.  '  VOLUME . STAND. 

*  CUBIC  FOOT' ) 

WRITE! LUNW  >  8 ) 

8  FORMAT(/*18X* 'REACTION  RATE  ... GM  MOLES / ( HR-GM  OF 

*  CATALYST'///) 

12  WR I TE ! LUNW  »  3 )  PRESS!3)*WFA 

3  FORMAT ( 10X* 'VOLUMETRIC  FEED  RATE ' * F7 . 3  * 5X * ' WC/FH2S ' 

* ♦ 1 4X  »  F7 • 2 / ) 

WRITE ( LUNW *2 )  RXH2S *RXS02 * RTEMP * PRESS ( 2 ) 

2  FORMAT ! 10X* 'REACTION  RATE  OF  H2S'*F7.4»5X  .'REACTION 

*  RATE  OF  S02 

1 'F7.4//10X* ' REACTION  T EMPERATURE ' * F7 . 2 ♦ 5X  .'REACTION 

*  PRESSURE 
1 ' F7 •  1 /  ) 

WRITE ( LUNW. 6 )  FDRAT *PRRAT .H2SCN *S02CN 

6  FORMAT ( 10X  * ' FEED  H2S/S02  RATIO  '  .F7.4.5X  .'PRODUCT 

*  H2S/S02  RATI 

10' *F7.4//10X* 'CONVERSION  OF  H2S  '  *F7.2*5X 

*  » • CONVERSION  OF  S02 

1  • *  F7 • 2  * /// ) 

WRITE(LUNW*4)  !FDCQM(J) *PRCOM(J) *BAL! l.J) *8AL(2»J) 

*  *  j  =  1  *  6  ) 

4  FORMAT ( 10X *' MOLECULAR ' *5X *' FEED ' *6X *' PART  I AL  PRESSURE' 


*  *4X  * ' MATER  I A 

1L  BALANCE' //11X. 'SPECIE 

*  REACTOR ' * 8 X  * 'FEED 

1  PRODUCT ' //13X * 'N2  ' 

**F7.3//13X* • H2S ' 

1*7X*F6.2*9X*F6.1*9X*F7. 


•  *4X 'COMPOS  IT  ION '  *4X.  '  IN 


*7X  *F6.2  »9X .F6. 1 .9X *F7.3 .3X 
3.3X.F7.3//13X* 'S02*  .7X.F6.2.9X 


*  » F6 • 1 *9X*F7 . 


-u 


Tuc-'Ut  3H I  TuOP.uUa 

TU^T JO  3/,ITUO«8Ua 

A  .  t  q-.  3  ■;  *  SOciXfl#  2S  *tX  >;t  283r/  *  JP-TUO  3/>  I  T  UO?)8Uc 

•  tOdSHtTAfifl^t* 

cU»,a«A3/.«  .  .  J*  JA  <  0>  :COC  - « /  DSC  8  C 

{  ,  ;  ,  (  )  J0Cj3t  (  r  )  -GO  3,  {  £  )  jflS  HOIStf?  •  1  0 

WtfUJ*$WUJ 
ei •  4  itAiii-  mm 

a  =*w/iU j  ex 

<«#  #MLJ)3TIflW  A I 
( • X • )TAMH03  e 
u>  ( I «  WtfUJ 1 3T 1 HW 

(  +i  A  * . .  *  *  :  3  :r\  *■  t  HU  ! 1  tXOIWW  )TA'  H03  X 

sXf  XXtXX(d-WtfUjm 

( OX • WHU  j ) 3T I PW  XX 

I  VI  . . 8CA  '»m\\'oTIHU’«XY£\)TAN'a03  OX 

(9t*  1UJ)3TlflW 

1  YfUD*3  ~C  dv  JT'-:-  I J  JIM»  •  . .  Jdd  j  ' t  X  8X  )TAMfl03  9 

ft 33M3T  '  .X  I\ 

.  . . aMlT'tXBXW*^  IVJ3>  833*030 . 3P.UTAX 

SO^MOD* •  X8  X \* 

.  A,  .. . 3,  UJOV'  tXflXW'T^^  3JOM.....HOITIX 

(  ’  T 003  01  1U0  * 

u  «.  oo  ^r  :  i 

4 )  \  :  i  j  vj  V D •  •  •  3T  A#  .  0  I  7  0  •  3  >  •  •  X  X  *  \  )  f  03  8 

l\\\’TeYjATAO  * 

AlWt  (OSBiHq  <£#WHUJ)3TI*W  SX 

. sSH'3\: t xe#£t  3t • 3T a  •:  n  '  ujov •«xox> tamaoi  e 

(\S.Y3.XAX** 

l  S  )  cS3  v.cM  <•!  .'3T>. ,  £08  Xf  *aSHXH  l £« WtfUJ  ) 3T I *W 
.  j  }  39  •  .  xe.A.Y  .'cS-  -  3TAf  tfO  I  T0A3*  •  .  XO  X  )  T  A'  *03  S 

, 

on  ».  xe*  s«T3t  jtahj^  jt  /on  »  '«xoi\\A.'  '  x 

3*uaa3*9  * 

{  \  X • Y3  *  X 

/  j; S v  Jt/OSSH#  TA*Rq*TA*03  l  dt WtfUJ  )  3T  IflW 
TDUC'j^’f  Xc*A.T3t  '  OITA. 4  SOa\dSH  0333‘tXaX)  rAM*03  d 

iTAfl. soe\esH  * 

Ac,  ,,v  #  *  Z  J:  30  -  OldH3V/OD'  •  X0XWA.Y3t  'OX 

see  30  HOie  3v;  oo* » * 

(\\\«S»Y3t 1 

.  .  \H#  (ut  X  )  JA3«  (U  00^'h*  tc)M0003  >  (  A .  wtfU J  )  3T  I  *W 

( d  *  Xso«  * 

>83*H  JAITf  3*  ♦  U  %  »  033  *•  t  Kfi*  1  >iAJu;3JO;/«fX0X)TAMflO3  A 

A  l  *  3  T  A  M  •  *XA«* 

/il  •  «  xa*  1  ;i  fl  80^300  *  X^«  ’  3 1  03fd  1  •  XXXW  1  30HAJA6:  JX 

G 333 ’ .Xot »«OTOA3fl  * 

xe*£.Y3tX9tX.d3tX9#£.d3#XYt  1  S/l  •  ♦  X£  X \\ *  TOUQOfi^  X 

•aSH* .X£X\\£.Y3f* 

,vt  S  .  • «  >o;  «  •  SOS  <  ♦  Xtx  \  \£«  Y3»  X£»  £  .T3»  X^rt  -  .d3f  X9«  S«d3«XYf  X 

.Y3tX9#I.d3** 
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SUBROUTINE  OUTPUT  •••(CONT*D) 

13»3X*F7.3//13X»  »  H20'  ♦7X»F6.2>9X>F6.1»9X*F7.3»3X»F7.3/ 
*/13X*'SX  '»7X 

1*F6.2*9X.F6.1*9X»2(F7.3»3X)//13X‘H2'8X»F6.2*9X*F6.1»9X 
*»2<F7.3*3X) ) 

WRITE (LUNW*7)  XS 

7  FORMAT ( //  /  / * 13X  * 'AVERAGE  NO.  OF  SULFUR  ATOMS /MOLECULE* 
*  *F6.2) 

IF  ( IPR-2  >13*16*13 
16  LUNW=LUNR 
I  PR  =  3 
GO  TO  12 
13  RETURN 
END 


- 


{'-♦'MOD)...  Tv  c  TOO  3/1  TUG88U2 

\ £  «  V3  «  X£ ♦  .\  « X  *A.>-3«Xv«S.  iXT^'CS  ,«X£l\\£.T3,X£*£i 

< .  , 1  xa  %x ; i  * 

*«?,  X  .d3«  X*  t  :;«3”-tXS  *Sh  '  X£l\\t  •  «  '  .  V  3  )  ^  .  X  v  *  I  .  £3  *  X  9 1  £  .  d  3  ♦  I 

( (x£f  e«Y3)<:** 

2X  <Y«W  U J ) 3T 1 PW 

*5jOi.  \c.  T  U3jue  3o  .  j.  3DAP3N  A' tX££t\\\\)  ;  A  ■O-'  \ 


<S.d3'  * 
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si  ot  oo 

I/IPUT3P  ex 

’ 
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MAINLINE  DPLOT 
MAINLINE  DPLOT 

*****  *  *******  *  ***  *  ******  *  ****  #  **********  *  ************  * 


*  * 

*  * 

#  PLOTS  FROM  PROCESSED  DATA  FILE  * 

*  * 


****************************************************** 


DEFINE  FILE  200 ( 5 1  » 80  * U ♦ NEXT ) 

DIMENSION  X  (  50  )  *  Y ( 50 )  »  I  Y  (  7  )  *  I  X ( 7 )  >VAR(23)  *  LX ( 4  *  4  ) 

*  *  LY ( 10  ♦  7  )  *  LABX ( 40 

1) *  NLY ( 7 )  *  PH2S ( 50 ) *PS02(50)  *PH20(5Q) *LABY(40) 

COMMON  X*Y*N*XMAX*XMIN*YMAX*YMIN*RTEMP  *  FDR AT  *RUN1 *RUN2 


*  *  LABX  *  NLABX  » 

1LABY*NLABY. I  DEC  * PH2S » PS02 . PH20 . INDY 
DATA  NLY/9*9*9*9»1»1Q*6/*IY/1»1Q*8*9*4*5*21/*IX/2*21 


*♦22*23/ 

DATALY/ 

*  *  1  2  1 

1  *  '  0 '  *  '  N 

**  »  •  * 'S 

2  *  '  2  ' 


H 

♦ 

♦ 

t 

* 


1  *  '  2  '  *  1  S 
•C‘ 

' V* *2*' 

•  0  * 

*  R  *  * 'A'  ♦ 


'  *  '  1 
*  T  •  * 


'  ,  'O' 
'  E  *  .  ' 


'C*  **0*  *,N*  **V*  * 
'OS'O'i'^'f'R't 
'  * '  '  *  1 K 1  *9*'  '  * 


' * 'S' . 'O' 
H' * '2 ' * 'S' 
F'  * • E •  ♦  •  E  # 


*t  »D' 
3  *R  '  * 

DATA 
*  *  •  2  * 


A  *  *  *  T  '  * '  I 
LX/  ’  '  ♦ ' W 

•P '  *  1 H  *  * 


O' . ' P ' * 'H ' » ' 2 ' * ' S' *6* '  '  / 

F* ♦ ' A' * • P 1  * ‘H1 *  *2 • * 'S '  *  *  P  *  * 'S’  * '0* 


1*2' * • 0 • / 


C**  GETTY  WILL  DETERMINE  WHICH  TELETYPE  IS  BEING  USED. 

CALL  GETTY(LUNR) 

LUNW=LUNR 
9  CONTINUE 
I DEC  =  2 

WR I TE ( LUNW* 103 ) 

103  FORMAT (  1  WHERE  DO  YOU  WANT  THE  PLOT ♦ 1-SCOPESO 
^-PLOTTER’  ) 

CALL  FFINP (LUNR*1 *0* ID* IEROR) 

CALL  SCALF ( 1. »!• *0. *0. ) 


C**  PLOTD  SETS  UP  EITHER  THE  PLOTTER  OR  THE  SCOPE 

CALL  PLOTD ( ID ) 

IF (  ID ) 12  *  12  ♦  11 
11  CONTINUE 
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#  XSAJ/t  X?3A  J#* 


YG^lt0^^q*SC2q«2SHq*D3ai*YeAJ  tYH  '  ji 
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•D*  •  • 

•  ;  '  »  •  0  '  t  *  IN  *  '  '  *S*  *  V*  t  '  K 

•  o  •  •  •  e 

'  •  '  3  '  «  '  T  ’  ♦  1  A' t  '  fl‘  t  ' 


\ 


i  i 


,  *8' ♦  ' t  'H'  f  'q1 f  'O' t  '  I  '  •  '  T  ’  #  '  A 


•  £  •  «* 
'C  1  t  I 

I  I,* 

•  s  • « s 
»a«  •* 
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3UIX  I THOD  9 
soaal 
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•  XtTOJ*  3HT  A  uOY  oa  3H3HW  • J TAMH03  £01 

(  ’  SR 3 T T C  i  -* 

(  -  JV3I  •01*0*  I.5WUJ><WI33  JJAD 
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MAINLINE  DPLOT  ...(CONT'D) 

CALL  ERASE 
CALL  ORGSC ( 0 • >0.  ) 

12  CONTINUE 
SUMT- 0 • 

SUMFD=0 . 


C**  DETERMINE  THE  ORDINATE  VARIABLE 
WR I TE ( LUNR  » 1 00 ) 

100  FORMAT(  'SPECIFY  VARIABLE  FOR  VERT  I  CAL '  ♦ / * ' 1-H2S  CONV'f 
*  /  * 

1 ' 2-S02  CONV' •/• '3-H2S  RATE*10Q0 ' » / * ' 4-S02  RAT E*  1000 '  *  / 
*  * ' 5-F ( PH2S  * ' 

1 ' PS02  *RH2S )  '/*' 6-FEED  RATIO' »/»'7-PH2S'  ) 

CALL  FFINP ( LUNR*1 »0* I  * IEROR) 

IF ( 1-3 )4*3*4 

3  WR I TE ( LUNR  *  105 ) 

105  FORMAT (  ' DO  YOU  WISH  TO  GENERATE  PO I  NTS '  * / » ' 1-YES  2 
*-NO* ) 

CALL  FFINP (LUNR»1 »Q* IDEC  » IEROR ) 

4  CONTINUE 


C**  SET  UP  THE  ORDINATE  LABEL 

DO  1  J= 1  *  25 
1  LABY ( J ) =LY ( J  *  I ) 

NLABY=NLY ( I ) 


C**  INDY  DETERMINES  THE  POSITION  IN  THE  FILE  OF  THE 
C**  I  VAR  I ABLE 

I NDY= I Y ( I ) 


C**  DETERMINE  ORDINATE  MIN*  AND  MAX. 

WR I TE ( LUNR  # 104 ) 

CALL  FFINP(LUNR»2*1»YMIN*1»YMAX*I EROR ) 


C**  DETERMINE  INFORMATION  FOR  THE  ABSCISSA 


WR  I  TE  (  LUNR  *101) 

101  FORMAT( 'SPECIFY  VARIABLE  FOR  HORI2 
*-PH2S' »/* 

1 ' 3-PS02  '  * / * ' 4-PH20 '  ) 

CALL  FF I NP ( LUNR *  1  * 0 » I » I EROR ) 
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MAINLINE  DPLOT 


•  • .  ( CONT * D ) 


DO  2  J= 1 » 4 
2  LABX ( J )  =LX (  J  *  I  ) 

NLABX=4 
INDX= IX (  I  ) 

WR I TE ( LUNR  *104) 

104  FORMAT (' SPEC  I FY  MIN.  AND  MAX.  FOR  AXIS*) 
CALL  FFINP ( LUNR  *2  » 1 *XMIN  1 1 »XMAX > I EROR ) 


C**  VALUES  OF  VAR  FROM  THE  FILE 
C  VAR ( 1  )  H2S  CONVERSION 

C  (2)  WFA  (FEED  H2S  RATE/WT.  OF  CAT.) 

C  (3)  RUN  ALPHANUMERIC 

C  (5)  FEED  H2S/S02  RATIO 

C  (8)  H2S  RATE 

C  (9)  S02  RATE 

C  (10)  SO?  CONVERSION 

C  (11)  PROD.  RATIO 

C  (21)  PH2S 

C  (22)  PS02 

C  (23)  PH20 


C**  DETERMINE  LOCATION  OF  DATA  IN  FILE 

N  =  0 
1  =  0 

WR I TE ( LUNR  *106) 

106  FORMAT (‘  HOW  MANY  BLOCKS  OF  DATA') 

CALL  FFINP(LUNR»1 »0»NBLK» I EROR ) 

DO  15  J=  1  * NBLK 
WR I TE ( LUNW  *  102 ) 

102  FORMAT!  'STARTING  RECORD »  LAST  RECORD') 
CALL  FFINP ( LUNR  *2  *0* ISTRT  *0. I  END » I EROR ) 
I F ( J-l  )  1 3  *  1 3  » 14 

13  READ (200'  ISTRT)  VAR 
RUN 1 = VAR ( 3 ) 

14  DO  10  I J=  ISTRT  » I  END 
NF I L=  I J 

1  =  1  +  1 

READ ( 200 ' NF I L )  VAR 

VAR (2 )=VAR(21 ) *VAR ( 22 ) ** • 5 


C*#  VAR ( 4 )  SET  TO  F ( PH2S »PS02 »H2S  RATE) 
VAR(4)=VAR(21 ) *VAR ( 22 ) ** • 5 /VAR ( 8 ) 
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TOJ^G  3t  I  J ir •  I A  '• 
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MAINLINE  DPLOT  ...(CONT'D) 

C**  REACTION  RATES  MULT.  BY  1000  FOR  PURPOSES  OF  SCALING 

VAR(9)=VAR(9)*1000. 

VAR ( 8 ) = VAR ( 8 )*1000. 

Y( I ) = VAR ( INDY) 

X ( I ) = VAR ( I NDX ) 

PH2S ( I ) = VAR (21) 

PS02 ( I ) = VAR ( 22 ) 

PH20 ( I ) =VAR ( 23 ) 

SUMFD=SUMFD+VAR ( 5 ) 

SUMT=SUMT+VAR (4 ) 

10  CONTINUE 
15  N= IEND-ISTRT+l+N 
RTEMP=SUMT/N 
FDRAT  =  SUMFD/N 
R  U  N  2  =  V  A  R  (  3  ) 

WR I TE ( LUNR  *  203 ) 

203  FORMAT ( ' HOW  MANY  COPIES') 

CALL  FFINP(LUNR*1*0*NCOP*IEROR) 

DO  20  1=1 *N COP 
20  CALL  BKPLT 

WRITE ( LUNW  *  202 ) 

202  FORMAT (/* 'O-EXITS  1-PLOT  AGAIN') 

CALL  FF INP ( LUNR f 1 >0 »NPLT *  I EROR ) 

IF(NPLT)  50*50*9 
50  CONTINUE 
CALL  EXIT 
END 
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SUBROUTINE  BKPLT 
SUBROUTINE  BKPLT 

*******#****#*-***#*■*#*#**#*********#******####*#**#*-!{■* 


#  * 

tf  * 

*  PLOTTING  OF  POINTS.  * 

#  * 


#*#*  *#*  ******  •tt**#*#*##***-*#-***************#**##*#**-*** 


SUBROUT  I  NE  BKPLT 

DIMENSION  LABX ( 40 ) >LABY(40) *ITITL(4*60)*NTITL(4) 
DIMENSION  X ( 50 )  *  Y ( 50 ) *PH2S(50)  .PS02(50)  »PH20(5Q) 

COMMON  X* Y»N*XMAX*XMIN*YMAX*YMIN*RTEMP  *  FDR AT *RUN1 >RUN2 
*  *  LABX  >  NLABX * 

1LABY*NLABY* I  DEC  *PH2S»PS02 *PH20* INDY 
FUNC(PA*PB>PC)=B1*(PA**B2)*(P8**B3) 

Bl  =  . 0005547 
B2=. 92916 
B3  =  . 76004 


C**  FUNC  IS  USED  TO  GENERATE  POINTS 

C**  SET  UP  VARIABLES  FOR  THE  GENERAL  PLOTTING  ROUTINE  PLOT1 

DO  121  1=1*4 
121  NTITL ( I )=0 
NX=  10 
NY  =  20 
XL=6 • 8 
XS  =  •  2 
YS  =  •  2 
ANG=0 • 

NT YPX=2 
I NCX  =  2 
I  NCY  =  2 

CALL  PLOT  1  ( LABX  *  NLABX  *  LABY  »NLABY  *  I T I TL  #NT I TL  *  XMAX  *XMI N 
*  * YMAX  * YM I N  * 

1NX*NY»XL*XE*YE*NTYPX» INCX* INCY ) 


C**  PLOT  POINTS  WITH  CHARACTER  DETERMINED  BY  ICHAR 

I CHAR= 1 
DO  13  I  =  1  *N 
XP  =  X  (  I  ) 

YP  =  Y (  I  ) 

CALL  FPLQT ( -2  *XP  *  YP ) 

CALL  PO I  NT  (I  CHAR ) 
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SUBROUTINE  BKPLT  •••(CONT'D) 

13  CALL  FPLOT ( 1  *  XP  »  YP ) 

GO  TO  (9*11)  ,  IDEC 
9  I  CHAR  =  2 

C**  GENERATE  POINTS 

DO  10  I  =  1  *  N 
XF  =  X (  I  ) 

YF=FUNC ( PH2S ( I ) »PS02( I ) *PH20( I ) )*1CQ0. 
CALL  FPLOT ( “2  *XF  *  YF ) 

CALL  POINTt ICHAR) 

10  CALL  FPLOT(l.XF*YF) 


C**  I NDY=4  INDICATES  LINEAR  FORM  OF  RATE  EQUATION  REQUIRED 

11  IF(  INDY -4)70*61*70 

61  YN=1. /. 000861 
XN  =  0  • 

CALL  FPLOT ( -2 *XN » YN ) 

XN=XMAX 

YN=.00874*XMAX/.Q00861+YN 
IF ( YN-YMAX )63  *63  »62 

62  XN=.000861/.00874*YMAX-1 .  /  .861 
YN=YMAX 

63  CALL  FPLOT ( -1  *  XN  *  YN ) 


C**  RETURN  TO  PLOT  ORIGIN  FOR  SPACING  TO  NEXT  PLOT 

70  CALL  FPLOT (0  »XMIN  »YMIN ) 

CALL  SCALFI 1. »1. »0« *0. ) 

CALL  FCHAR(.7»-1.2*.2».2*0. ) 

WR  I  TE  (  7  >112)  RUM  ♦  RUN2 
112  FORMAT (  ' RUNS  '*A4*'  TO  1  * A4 ) 

CALL  FPLOT(-2»1.4*-1.4) 

CALL  POINT(O) 

CALL  FPL0T(1*1*6*-1.4) 

CALL  FCHAR ( 1 .6 *-l .4. . 1 ♦ . 1 »0. ) 

WR I TE ( 7  *  1 15  ) 

115  FORMAT( 'EXPERIMENTAL  POINTS') 

GO  TO  ( 12*60 ) * IDEC 

12  CALL  FPLOT (-2  *1*4*“1*6 ) 

CALL  PO I  NT ( 2 ) 

CALL  FPLOT ( 1  *  1 *6 »-l .6 ) 

WRITE(7  *116) 

116  FORMAT (' GENERATED  POINTS') 

60  CALL  FPLOT (0 *6.8 *-3.1 ) 

CALL  SCALF ( 1 • *  1 . » 0 . * 0 . ) 

RETURN 
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SUBROUTINE  PL0T1 
SUBROUTINE  PL0T1 

*  *  ***********#*#***■}<■#*#  *#*-«•***  ■«-****■**-*****-&**  #*•**#**-** 
•K  * 

*  * 

*  GENERATION  OF  AXIS*  LABELLING  OF  AXIS  AND  TITLING* 

*  OF  PLOT  * 

*  X  AXIS  IS  THE  AXIS  DOWN  THE  LENGTH  OF  THE  PAPER.  * 

*  Y  AXIS  IS  THE  AXIS  ACROSS  THE  WIDTH  OF  THE  PAPER.  * 

*#  *-  ****•«•  ■**  *-  **■*  *  *  #  *#•}<-#*  *  *  *  -x  *  *  *  *#**#*  *■«-*-*  # 


SUBROUTINE  PLOT1 ( LABX * NLABX *  LAB Y * NLAB Y  * T I T LE » NT  I TL 
*  *XMAX  *XMIN* YMAX » 

1  YMIN*NX»NY*XL*XEND*YEND*NTYPX.  INCX*  IiMCY  ) 

INTEGER  T  I  TLE ( 4 ♦ 60 ) 

DIMENSION  LABX (40) *LABY(40) *NTITL(4) 

THT=3. 1416/2. 

UX= ( XMAX-XM I N ) /NX+. 0000001 
UY= (YMAX-YMIN) /NY+. 0000001 
CALL  FPLOT(-2*.5».5> 

CALL  POINT(O) 


C  *****DECIDE  IF  VERTICAL  OR  HORIZONTAL  PLOT 
IF(NX-NY) 16*16*15 


C  *****  HORIZONTAL 

15  YN=3 • 5 
SX=XL /NX 
SY=4. /NY 

XN=2.7+(7.8-XL) /2. 
YL  =  4  • 

GO  TO  17 


C  ***#*VERT I  CAL 

16  XNS3 • 2 
YL  =  XL 
XL  =  4 • 8 

YN=3 • 0+ ( 7.0-YL ) /2 . 

SX=4.8/NX 

SY=YL/NY 
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SUBROUTIME  PLOT1  ...(CONT*D) 

17  CALL  FPLOT(l.XNfYN) 

C  *****  STORE  INFORMATION  TO  SPACE  AFTER  PLOT 

XEND=XN 

YEND=-YN 

XN=SX*NX 

YN=SY*NY 

CALL  SCALF (  1  •  ,  1 .  ,  0  .  *  0  .  ) 


C  ***#*GENERATE  AXES 

CALL  F  G  R  I  D  (  0  *  0  •  *  0 • » S  X ♦ N  X ) 
CALL  FGR I D ( 1 , XN  *  Q • *  SY  » NY ) 
CALL  FGR I D ( 2  » XN  »  YN  » SX  >  NX ) 
CALL  FGRID(3»0#  »  YN  >SY  *  NY  ) 
NX=NX+ 1 
N  Y  =  N  Y  + 1 
X  =  X  M I  N 
Y  =  Y  M I  N 

IF(MTYPX)  25,24,25 


C  *****  NTYPX=Q  DEFAULTS  TO  NTYPX=1,  INCX=1 

24  I N  C  X  = 1 
I  NCY  = 1 
NT YPX= 1 

25  CONTINUE 


C  *****  ANNOTATE  HORIZONTAL  AXIS 
GO  TO  (26,27)  ,NTYPX 


C  *****  NTYPX=1,  VERTICAL  ANNOTATION  ON  HORIZ,  AXIS 

26  XN=0 • 

YN=-.85 


C  *****  NX = NUMBER  OF  DIVISIONS 
C  *****  I NCX  =  LABEL  EVERY  N  TH  POINT 

C  *****  UX  =  D  I  STANCE  BETWEEN  DIVISIONS  IN  PLOT  UNITS 

DO  20  I  =  1  *  N  X  » I NCX 

CALL  FCHAR  CXNtYNf . 10 , . 15 *Th.T ) 

WRITE (7, 100)  X 


XT.  -I  ITUCfv'Ua 
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SUBROUTINE  PLOT1  •••(CONT'D) 

X=X+UX* INCX 
20  XN=XN+SX*INCX 
100  FORMAT ( F8 • 1 ) 

YN  =  - 1 • 0  5 
GO  TO  40 
27  XN=- • 35 

C  *****  NTYPX=2*  HORIZON*  ANNOTATION  ON  HORIZON.  AXIS 


YN=-.30 

DO  28  I=1»NX*INCX 
CALL  FCHAR ( XN »YN * . 1  * . 15 *0. ) 
WRITE(7  *102)  X 
102  FORMAT ( F5 • 1 ) 

X=X+UX* I NCX 
28  XN=XN+SX* I NCX 
YN=-.6 


C  *****  LABEL  HORIZON.  AXIS 

40  XN=(XL-NLABX*.15)/2. 

CALL  FCHAR(XN»YN* . 15* . 15 .0.  ) 
WRITE (7  » 101 )  ( LABX ( I )  *  1  =  1 »NLABX ) 

101  FORMAT ( 40A1 ) 

YN=-1 .4 


C  *****  INSCRIBE  PLOT  TITLES 

DO  23  1=1*4 

IF ( NT ITL  < I ) ) 23  * 23  *  22 

22  XN= ( XL-NT I TL ( I )*.15)/2. 

CALL  FCHAR(XN*YN*.15*.15*0.) 

N  =  NT I TL  (  I  ) 

WR I TE ( 7  *  103 )  ( T I TLE (I  * J ) » J=1 *N ) 

23  YN=YN-.2 
103  FORMAT ( 60A1 ) 


C  *****  ANNOTATE  VERTICAL  AXIS 

XN=-. 85 
YN  =  0  • 

DO  21  1  =  1* NY  * INCY 
CALL  FCHAR(XN*YN»*10*.15*0.  ) 
WR I TE ( 7  *  100  )  Y 
y= Y+UY* I NCY 
21  YN=YN+SY* INCY 
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SUBROUTINE  P LOT  1 


. . . (CONT  » D ) 


C  *****  LABEL  VERTICAL  AXIS 

YN=  ( YL-NLABY* • 1 5 ) /2. 

XN=-1.05 

CALL  FCHAR(XN>YN».15*.15*THT) 
WRITE (7  » 101  )  ( LABY ( I )  ,  1  =  1  tNLABY ) 


C  *****  SCALE  PLOT 

CALL  FPLOT (0  *0. *0. ) 

UX=SX/UX 

UY=SY/UY 

CALL  SCALF(UX»UY*XMIN*YMIN) 

RETURN 

END 
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APPENDIX  E 

GAS  CHROMATOGRAPH  JOB  DEFINITION 


E. 1  Parameters 

A  more  descriptive  presentation  of  the  job  definition  has  been 
presented  elsewhere  (17).  Only  the  variable  parameters  of  interest  to 
this  project  were  reviewed  below. 

The  job  definition  parameters  were  divided  into  four  categories 
as  follows: 

1  .  general  information 

2.  time  band  information 

3.  parameter  action  times 
4  .  ECO  action  times 

E.l .1  General 

The  job  definition  included  the  specification  of  the  following 

general  parameters: 

a)  number  of  allowed  peaks 

b)  time  band  in  which  reference  peak  will  occur 

c)  finish  time  of  the  chromatogram 

d)  number  of  time  bands 

e)  number  of  parameter  and  ECO  actions 

E.l  .2  Time  Bands 

The  job  was  further  specified  by  the  optional  definition  of 
time  bands  to  allow  peak  identification.  Each  time  band  defined  required 

the  following  information: 

a)  time  band  start  and  finish 

b)  peak  separation  method  to  be  used  for  any  fused 


- 
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peaks  occurring  in  this  time  band 
c)  alphanumeric  name  to  be  associated  with  the  areas 
integrated  in  this  time  band. 

E.1.3  Parameter  Actions 

One  set  of  parameter  cards  was  required  for  each  action. 

This  card  specified  the  following: 

a)  type  of  time  used,  relative  or  absolute 

b)  action  time 

c)  new  values  of  the  following  parameters 

(i)  status 

(ii )  rate  of  scan 

(iii)  dead  band 

(iv)  number  of  repeats  for  "hard"  decision 

(v)  number  of  repeats  for  "soft"  decision 

(vi)  exponential  filter  factors  for  the  two 
deri vati ves 

A  discussion  of  selecting  the  numerical  values  for  these  scan  para¬ 
meters  was  presented  in  section  5.12. 

E.1.4  ECO  Actions 

Each  ECO  action  required  an  ECO  parameter  card  including  the 
following  information: 

a)  ECO  contact  address  to  be  acted  on 

b)  time  of  action 

c)  action,  i.e.  open  or  closed 

E.2  Entering  a  Job  Definition 

Once  the  parameters  were  punched  on  cards  according  to  the 


. 
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format  specified  (17),  they  were  entered  into  a  permanent  disk  file  by 
executing  the  GCMTN  coreload.  Once  these  parameters  had  been  accepted 
by  the  GCMTN  coreload  the  teletyped  queued  coreload  GCJOB  was  executed 
to  initialize  the  following: 

1.  G.C.  number 

2.  report  teletype 

3.  report  calculation  option 

4.  job  definition  number 

Now  each  time  that  the  interrupt  associated  with  this  parti¬ 
cular  gas  chromatograph  was  closed,  a  scan  was  carried  out  using  the 
parameters  specified  in  the  job  definition.  The  job  definition  to  be 
used  could  be  changed  to  any  defined  job  by  executing  GCJOB  when  the 
particular  gas  chromatograph  was  idle. 

The  job  definition  for  the  N^,  ^S,  SO^,  H^O  analysis  on  a 
4  foot  x  1/8  inch  Chromosorb  104  column  and  a  6  foot  x  1/8  inch  Porapak 
Q-S  column  is  included  as  Table  E.l.  Table  E.2  is  the  GCJOB  portion  of 


the  definition. 


■ 
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12  JAN  72 
13/51  HRS 


**  GAS  CHROMATOGRAPH  JOB  LISTING  ** 


jOf- 

NUMBER  = 

15 

CALCULATION  OPTION  = 

7 

GC 

NUMBER  = 

1 

total  peaks 

7 

F  I  N 

ISH  TIME 

300 

NOR 

MAL  I  z  at  I on  const,  = 

100. 

&  REFERENCE 

PEAK  DATA  * 

LOW  TIME  0 F  REF 

peak 

5. 

HIGH  T I VE  OF  RFF 

PEAK 

55. 

CONCENTRATION  OF 

REF  PEAK 

0. 

RESDONCE  FACTOR  OF  REF  PEAK  0* 


*  TIME  E  AND  DATA  * 


TIME 

HIGH  time 

CONC  FOR  STND 

FACTOR 

JTYPE 

COMPONENT 

15. 

35. 

0. 

1. 

1 

N2 

60. 

120. 

0. 

1. 

1 

H2S 

150. 

230. 

0. 

1. 

1 

S02 

240  . 

280. 

0. 

1. 

1 

H20 

COMPONENT 

SEQNO 

I  PLUS 

INREF 

IFCGO 

IREST 

UNITS 

N2 

1 

0 

9 

0 

0 

( 

H2S 

2 

0 

0 

0 

0 

( 

S02 

3 

0 

0 

0 

0 

( 

H20 

4 

0 

0 

0 

0 

( 

*  PARAMETER 

AND 

CONTROL 

ACTION 

DATA  * 

PARAMETER  ACTIONS 


ACTION  TIME 

KNOT  M 

ISTS 

IRATE 

IHIGH 

I  LOW 

I  HARD 

ISOFT 

I  EXP  1 

IEXP2 

0 

AB 

11 

8PPS 

15 

-15 

7 

6 

1 

2 

5 

AB 

1 

8PPS 

30 

-30 

7 

6 

1 

2 

30 

RL 

0 

4PPS 

30 

-30 

9 

8 

1 

1 

125 

RL 

0 

2PPS 

30 

-30 

7 

6 

1 

1 

210 

RL 

0 

1PPS 

30 

-99 

4 

3 

1 

1 

300 

RL 

19 

1PPS 

30 

-99 

4 

3 

1 

1 

ECO  ACTIONS 

MO  ECO  ACTIONS  SPECIFIED 
JOB  COMPLETE 

//  END  12  jAN  72  13.52*08 
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TABLE  E-2 


>QGC JOB 

COHELOAD  QUEUED  OK 
12  JAN  7  2 
14/  3  HKS 


**  GAS  CHROM.  JOB  ENTRY  ** 


ENTER  G.C. 

>1  15  12  7 

NUMBER 

G.C.  NUMBER 

- 

1 

JOB  NUMBER 

= 

1  5 

OUTPUT  LUN 

= 

12 

KALC  OPTION 

- 

7 

JOB  NUMBER*  REPORT  LUN  AND  KALC 


TYPE  1  IF  OK 

>1 

JOB  ENTERED 


•  •  • 


2  IF  NOT 


' 

F-l 


APPENDIX  F 

PROGRAMS  DEVELOPED  IN  THIS  PROJECT  FOR  USE  WITH  THE 

GAS  CHROMATOGRAPH  PACKAGE 

A  facility  was  available  to  obtain  digitized  results  from 
one  chromatograph  at  a  constant  scan  rate  of  16  points  per  second. 

These  results  were  then  used  for  picking  the  scan  parameters  or  pro¬ 
ducing  plots. 

During  this  special  run  all  other  chromatographs  were  locked 
out  of  the  system.  The  special  system  was  initiated  by  keyboard 
queuing  RAWLD.  Then  the  job  entry  coreload,  GCJOB,  was  queued  and  job 
number  99  specified.  Once  these  two  steps  had  been  completed  the 
package  was  activated  by  the  usual  interrupt.  The  data  was  stored  for 
10  minutes  or  until  the  interrupt  was  closed  a  second  time. 

Once  the  data  acquisition  was  complete  the  data  were  avail¬ 
able  to  the  off-line  co reloads.  As  well  a  hard  copy  in  the  form  of  a 
punched  deck  was  available  through  the  IBM  system  function  *DUMP. 

The  coreloads  available  were  as  follows: 

1)  TEST  -  calculate  derivatives  at  various  scan  rates  to  aid  in  speci¬ 
fication  of  scan  parameters. 

2)  DATPT  -  plot  of  the  following 

a)  signal 

b)  first  derivative 

c)  second  derivative 

Used  as  an  aid  to  selecting  scan  parameters. 

3)  GCPLT  -  plot  of  the  signal.  This  provided  more  flexibility  and  more 
options  than  the  above  plot  routine. 
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MAINLINE  TEST 
MAINLINE  TEST 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* 


*  * 

*  PROCESSING  OF  DATA  STORED  BY  RAWGC  TO  CALCULATE  * 

*  THE  FIRST  AND  SECOND  DERIVATIVES  IN  THE  SAME  WAY  * 

*  AS  THE  G.C.  SCAN  ROUTINE.  * 

*  * 


*  INPUT 

*  NUM-FIRST  RECORD  IN  THE  FILE(TIME*16  IN  THE  SCAN) 

*  I  END-LAST  RECORD  IN  THE  FILE 

*  TITLE-RUN  NAME 

*  ISCAN-SCAN  RATE  INDICATOR 

*  0-16  PPS 

*  1-08 

*  2-04 

*  3-02 

*  4-01 

*  5-1/2 

*  6-1/4 

*  IEX1-F IRST  DER.  EXPONENTIAL  FILTER  FACTOR 

* 

*  I EX2-SECOND  DER.  EXPONENTIAL  FILTER  FACTOR 

*  THIS  SEQUENCE  IS  REPEATED  FOR  AS  MANY  CASES  AS 

*  DESIRED.  THE  PROGRAM  WILL  END  ON  A  BLANK  CARD. 

* 


* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


INTEGER  Y  ( 13 )  *DYDX1 *DYDX2  *DYEX1 *DYEX2 
DIMENSION  TITLE (20) * S C 0 R E ( 19) 

DATA  SCORE/ 19* ' — —  1 / 

DEFINE  FILE  100(  9600 * 1  * U * NEXT ) 

20  READ (5  *500)  NUM  * I  END 
I  F (  I  END ) 101*101*21 

21  TOTAL=0 • 

READ ( 5*504)  TITLE 
504  FORMAT ( 20A4 ) 

READ ( 5  »  500 ) I  SCAN* IEXl * IEX2 

I NCRS 2 ** I  SCAN 

SCAN= 16 • / INCR 

I  END= IEND+7*I NCR 

NFIL=NUM-7*INCR 

NUM=NUM- 1  NCR 

IF(NFIL) 18*19*19 

18  NF I L=0 
NUM5=NFIL  +  7*INCR 

19  WRITE(6  *505)  T I TLE *SCAN ♦ I EXl *  I EX2 


s  -3 


T23T  3/ I  JZ I  AM 

ro3T  smijimam 

*  *******  *  '#«»*  *##«  >*#»»*#»*«*» 

* 

JU3J/0  1  3  w'Afi  YE  "  Tc  AT  AO  30  0ZI22330flq 
v  ..  3MA2,  HT  .  I  23V I T  A  V 1 53  i  a  0/0332  OZA  T28I3  3HT 

.3/10)03  ZA32  .3.0  3HT  2A 

# 

TIN/ 1  * 


OA32  3hT  /  I  d  X*3M I T ) 3J I  3  3HT  /.I  0HO33H  T2AI3-MUZ  * 

3 J 1 3  -mT  ;  i  080333  T2AJ-0Z3I  * 

3MAZ  ZUfl-  iJTIT 

«OTA3IO/I  3T  A8  ZA32-ZA32I  * 

eqq  di-o 

80-1  * 

AQ-S  * 

S0-£  * 

X  0-A  * 

s\x-e  * 

A\X-<3  * 

»  ' i)T3  JTjH  JAIT:  3/OqxT  x.?)3G  T2H3-XX3I  # 

8QT3A3  T J  I  3  JAIT/3/0qX3  .830  0/0332-SX3I  * 

232A3  Y/AM  2A  ACT  TA3q38  21  33Z3U032  2IHT  * 
•  3  ^.Aj*  /c  c/u  jji  •  AFiocqq  3ht  •oTfluaa  * 


:■  *  »•:  *#***♦«  ******  **********  ********* 


SX3  YC  *  XX  3YQ.SXQY0.  XXCYO* (  £  X  )  Y  8303T/I 
( 9X  )  3 80 32.  (  OS  )  3JTIT  ZOI2Z3MIO 

\> - • *91 \38032  AT AQ 

(TXHZ.U.X.0;d9  )00X  3  J  1  3  3/1330 

a/3 i « muz  (00^.e)CA3q  os 

XS.X0X#X0X(0Z3I )3I 

•  0*  JATOT  IS. 
3JTIT  (A0e«e)GA3q 

( AAOS ) T AM803  A02 
SX3 I • XX3 I • ZA32 I (002.2  )GA 18 

/A38I**S*83Zl 
83/I\.dX*ZA32 
83ZI*V+aZ3I*0Z3I 
83Z  I *T-MUZ® J 13/ 
83ZI-MUZ*MUZ 
9X.9X.8X ( JI3/)3I 

0* J I  3/  8  X 
83ZI*V+JI3Z*MUZ 

SX3I.XX3I  »/,A32. 3  JT  I  T  (802.d>3TI8W  91 
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MAINLINE  TEST  ... (CONT'D) 

500  FORMA T ( 3  I  5  ) 

505  FORMAT (' 1 '*////// *33X* 'G.C.  DATA  ANAL YS I S '♦////* 2 OX 
*»2QA4*///*33X* 

1  ‘SCAN  RATE ' *F6.2 *//*33X* • FIRST  DERIVATIVE  FILTER 

*  CONSTANT  •  >  3X  *  I  2 

2  * / *  33X  ♦ *  SECOND  DERIVATIVE  FILTER  CONST ANT '  * 2X  ,  I  2  ) 

LAST  =  0 

DO  4  1=1*12 

NF I L=NF I L+INCR 

IF (NFIL-IEND) 3*3  *100 

3  CONTINUE 

READ ( 100 ' NF I L )  Y  C I  ) 

I F ( Y ( I ) ) 101*4*4 

4  LAST=LAST+Y ( I ) 

C  ****  CALCULATE  THE  AVERAGE  AREA  UNDER  THE  BASE  LINE 

LAST= LAST/12 

5  WRITE(6*507) 

507  FORMAT ( • 1 • */// ) 

WR I TE ( 6  *  506 )  SCORE 
WRITE(6*502) 

5  02  FORMAT ( 50X  * 'DERIVATIVES'  */ *39X  * 'UNSMOOTHED' *14X 
*. 'SMOOTHED' 

1  *  5X  * '  INCREMENTAL'  * / * 14X * ' T I  ME '  . 5X * 'SIGNAL' *6X* 'FIRST' 

*  *6X  * 

2  ' SECOND' *6X» 'FIRST' *6X* 'SECOND ' »4X* ' AREA ' ) 

WR I TE ( 6  *  506  )  SCORE 

506  FORMAT ( 13X*19A4 ) 

DO  8  I J  =  1  *  5  0 

NF I L=  NF I L+ 1  NCR 
IF(NFIL-IEND)9*9*100 
9  READ ( 100'NFIL)  Y( 13) 

C  ***#  SUM  IS  THE  INDIVIDUAL  INCREMENT  THAT  EACH  POINT  ADDS 
C  ***TO  TOTAL 

SUM= Y ( 7 ) -LAST 
SUM=SUM* I  NCR 

C  ****  TOTAL  IS  THE  TOTAL  AREA  OF  THE  PEAK  LESS  THE  BASE 
C  ***L I NE  CORRECTIO 

TOTAL=TOTAL+SUM 

C  **#*  BRANCH  OUT  ON  A  NEGATIVE  POINT 

I  F  (  Y (  13  )  )  101*6*6 

6  NUM  =  NUM+ I  NCR 
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C«T8AJ 
SI • I  *  I  A  OG 
80/I+Jl3l/*Jl3M 
J0X*£t£(atf3I-JI3H)3I 

3U/ITMOO  £ 

(1)Y  ( JI3K *QOX )0A3fl 
A.A«I0X( ( I ) Y ) 3 1 
(  I  ) Y+TSA J*T6A J  A 

j  IJ  j8A{  3HT  fl3C  U  A3fiA  30A*  3VA  2HJ  3TAJUDJAD  * +#*  0 

SX\T2AJ*T8AJ 
{ V0e»d>3TIP  1  5 

(\\\f ‘i1 ) T AMA03  voe 
38006  (d0efd)3TI«A 
(S0e.d)3TIflW 

X  A  X  *  '  T  v-  J'.A't,\»'e-vr  Vlflic'f  X0e)TA  ^03  SO: 

' Q3HTOOM8  * • * 

•  Xdt  * 

(  *  A  ]>:  A  '  *  X  A »  'Gy.003a*  «  X  d  •  1 T  5  3 1  3  *  *  X  d  t  • a^oDae1  s 

3  AC 38  (  dOE «  d  )  3T  I  3W 
(A  9  X-*  X£  X  )  T  A  03  dO<? 

.•  Od«X«cI  8  OC 
•0/.I+-I3;  «JI3 
0 0 X  *  V *  9 ( 0^3 1 “ J I  3/ ) 31 
(  £  X  )  Y  (  JI3M*00I  1CA33  P 

eacA  t.  :  ho  >3  tamt  th  •  3>on i  jauciviohi  3ht  ei  viue  ****  0 

JATOT  OT *** 
T2AJ- ( V ) Y*MU2 

fQMi*Mua«v\ue 

OIT03«flOO  3HIJ***  0 
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MAINLINE  TEST  ... (CONT'D) 

C  ****  DYDX1  IS  THE  UNSMOOTHED  FIRST  DERIVATIVE*  DYEX1  THE 
C  ***SMOOTHED 

CALL  DERI (Y*DYDX1 *DYEX1* IEX1 ) 

C  ***#  DYDX2  IS  THE  UNSMOOTHED  SECOND  DERIVATIVE*  DYEX2  THE 
C  ***SMOOTHED 

CALL  DER2(Y  *DYDX2*DYEX2* IEX2) 

WRITE (6  *501  )  NUM  *  Y ( 7 )  » DYDX 1  * DYDX2 * DYEX 1 » DYEX2  *  SUM 
501  FORMAT (5X*6 (5X* 16)  *7X*F8.0) 

I 

C  ****  SHIFT  THE  POINTS  BACK  ONE  IN  PREPARATION  FOR  THE 
C  ***NEXT  POINT 

DO  7  1=1*12 

7  Y( I )=Y( 1  +  1) 

8  CONTINUE 
GO  TO  5 

100  CONTINUE 

WR  I  TE ( 6  *  503  )  TOTAL 

503  FORMAT(///*13X» 'TOTAL  AREA=  **E13.4) 

GO  TO  20 

101  WR I TE ( 6  *503 )  TOTAL 
CALL  EXIT 

END 


A  -9 


(  G  *  T/OD  )  •  •  •  T23T  3/1  J  A I  A*' 

I  X  3YQ  #3V JTAVlflJQ  T2fU9  Q  ‘hTQ  jv  2/U  3hT  21  IXOYC  **** 

Q3HTOOM2***  D 

(IX  I  t  lx  :  YC  •  I XC  YO  •  Y  )  I  f  3<  J  J  AD 

>-T  SX  3YG  *:VITAVl>  3 C  (MOD  32  C3  T00.V2/iU  3HT  21  S/OYG  ****  D 

03HTCOM2***  D 

(  ^ A 3  I  «  Six  YC.  SXC  YG •  Y  )  SM3:  JJAD 
•!U2*  J  YG#IX3Ya*2iX(  Ya#XXCYGt  (V)YfVur  (IOe»d)  iTir^ 

(o.83txv*tdi«xe)dtx<)TAMflo3  ue 

HT  flO'-  ^OITA/:Aq3Hq  XI  j/C  >DA3  2T/IOq  3MT  T9IH2  ****- 

THIOq  TX3/*** 

sx • i * i  v  oa 

( i+I ) Y* ( I ) Y  V 
3U/ITKOD  8 
2  OT  OD 
3U/  I T/OD  OCX 
JATCT  (£0e*d)3Tiaw 

(A.ei3t»  *^'3«A  JATpT  1 »X6I*\\\)T  AM803  £02 

CS  OT  OD 

JATOT  (C02td)3TI*W  IOI 
TIX3  JJAD 
C/3 
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SUBROUTINE  DERI 
SUBROUTINE  DERI 

Q  ##*#****#**•*#•«•■«■*  ****#■**#*•*  ************  ********  ■#•*■■****** 

c  *  * 

c  *  * 

C  *  CALCULATION  OF  FIRST  DERIVATIVE  BY  A  LEAST  SQ.  * 

C  *  APPROX.  TECHNIQUE  OUTLINED  BY  SAVITXKY  AND  GOLAY  * 

C  *  ANAL.  CHEM.  »VOL  36.  P1627  (JULY  1964).  * 

C  *  * 

Q  ■&•****#*•«■■«••**  tt*#tt*tt*********#**#****tt**#*-«-***-«-***-H-*****# 


SUBROUTINE  DERI ( Y » DYDX 1  * DYEX 1  *  I  EX  1 ) 
INTEGER  Y ( 1 3 ) * DYDX 1  * DYEX 1  * DLAST 
DATA  DLAST /Q / 

DYDX1= ( Y ( 10 )-Y ( 4 ) +Y (9 ) -Y ( 5 ) ) *2. 

DYDX1=DYDX1+Y( 10 )-Y(4)+Y(8 )-Y(6) 

DYEXl= (DYDX1+DLAST)/2#*IEX1 

DLAST  =  DYDX1 

RETURN 

END 


Xm3Q  3/iTuo^eua 

f  *3'V  3  '  ITUO  •  Jc 


•*  #  *  .<  >***-’<#***•  ****  -••  r  *  ,;  ***  ***  **********  ,.  *•****-** 


♦ 

* 


.  T d A  : J  A  y ei  3VITAVI/JC  TC«13  30  CITAJOOJAD 

YAJGO  C/A  YXXTIVAc  Ytf  G3/ijTuC  3UCI/HD3T  .XC^q^A  # 
.  <  A  a  c- 1  YJUU  YSdl^  •  d£  JOV*  •N'jhO  .JAtfA  » 


*  .  **  *  *  -I,  *•  *  .  *  -St  *  «  .  r  A  ***  *  *  *****  'H  *#**#*###***#***«**# 


(  XX3I*XX3YG«  XXOYQ «  Y  )  Xfl3Q  3HITU0?  HUS 
SAJO»  IX3YC*IA  ;ya*  (€X)Y  F3Y>rTMI 

•  S  *  (  (d)Y-(9)Y+{A)Y-(CI)Y)  - i X  C 
(,  ) Y-< 8) Y+( A)Y-( ( X ) Y+IXOYO'XXCYa 
X  >  3  I  #*S\ ( TSAJG+IxaYC) SI X3YC 

IXGY0ST£A JC 

Q  3 
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SUBROUTINE  DER2 
SUBROUTINE  DER2 

SUBROUTINE  DER2  ( Y * DYDX2  * D YEX2  *  I  EX 2) 

INTEGER  Y(13) *DYDX2*DYEX2*DLAST 
DATA  DLAST/0/ 

DYDX2  = l Y ( 13  >  +  Y ( 1 )-2*Y ( 7 ) +Y ( 12 ) -Y (6 )+Y l 2 )-Y ( 8 )  ) *2. 
DYDX2=DYDX2+Y( 13 ) +Y ( 1 ) -2 *Y ( 7  ) 

DYDX2  =  DYDX2  +  Y ( 3 ) -Y ( 5 ) -Y ( 9 ) +Y ( 1 1 ) 

DYEX2= ( DYDX2+DLAST ) /2**IEX2 

DLAST  =  DYDX2 

RETURN 

END 


SH  io  jimuoflaue 

tSX3l«£X3YCUSXGYQtY>  S>  3G  3K!TUQfl8Ua 
7  <£  A  JO  ♦  S  X  3  Y  G  •  SXC  YG  t  {  Z  1  )Y  W303Ttfl 

\0\TeAJ0  AT  AO 

..Mi  )  Y—  (  £  )  Y*M  ;  )  Y  -  t  .  i  •  Y  M  '  )  Y  -  S  -  (  I  )  Y  ♦  (  £  X  JYMSXOYO 

( V ) Y*S-  l  I  ) Y  + UI )  Y+SXOYG  =  SXaYG 
Mi)  ♦(<  i y—  (  )  y-(£) YMxoYc-Mxora 
si  3i**s\(TaAja+sxaYa)  =sx3yg 

sxaYc=TaAja 

H9UT3A 
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MAINLINE  GCPLT 


MAINLINE  GCPLT 


C 

C 

C 

C 

c 

c 


#•«■#**■#**-*■** **#•■***#**#  **********  ****#••******* 


* 

# 


*  PROGRAM  TO  PLOT  G.C.  DATA  FROM  RAWLD  FILES 


* 


-a****#-*****##*  *****■*-**-#*#  *  ***#*#******■&#*#*-*■»«■*##•***■*** 


INTEGER  T I TLE ( 2  » 60 ) 

DIMENSION  N  X ( 6 )  *NXL(6)  *TX(6) »  I NCX ( 6 )  » NT  I TL ( 2 ) 

* ♦ INCXL ( 6  ) 

DIMENSION  I Y ( 3 ) >LA6(60) 

DATA  NX/ 15  *  15 *4*14/ * INCX/3#1 >2 *4 ,8/ »TX/90.  ,180.  >420 • » 
1  840. ,1680.  ,3360./  ,  INCXL/ 10, 5  ,4*2/ 

DATA  NXL/1, 3*7, 14,28,56/ 

DEFINE  FILE  100 ( 9600 , 1 *U , NEXT ) 

1  READ (5,100)  I  TYPE  »NCOPY , I D 


C**  ITYPE-SPEC  IFIES  LENGTH  OF  TIME  CHROMATOGRAM  COVERS 
C**  1-1.5  MIN. 

C**  2-3 

C**  3-7 

C**  4-14 

C**  NCOPY-NOT  USED 

C**  I D-SPEC IFIES  PLOT  DEVICE 

C**  C-PLOTTER 

C**  1-SCOPE 


CALL  SCALF ( 1. ,1.  ,0. ,0# ) 

I F ( ITYPE)8 0*80*2 
100  FORMAT (313) 

2  I  F  (  I D  )  9  , 9 , 8 

8  CALL  PLOTD ( ID) 

CALL  ERASE 

CALL  ORGSC ( 0 . ,0. ) 

9  DO  10  1=1,2 

10  RE AD (5, 101)  (TITLE(I»J) , J= 1 »  60 )  »NTITL(  I ) 


C**  TITLE-PLOT  T I TLE ( 2  CARDS  REQUIRED,  MAX  60  CHAR  EACH) 
C**  NTITL-NO.  OF  CHAR  ON  EACH  TITLE  CARD 


TjADO  N IJtflAM 


(Gc'.S)JJTIT  f  T:  I 

( s )  j "  I  t/i *  ( a )  xd*  i  <(.)):  t  •  ( i  )  jxi  t  ( a )  x r i  Gia/B  r 

( 6 ) JXDi/1 It* 

i  jd)  QA  J  •  C  e  I  Y  I  ./10ie/3  lie 

«.  •>,  •  x*.  v  \  ■  T  «  \  t  *  «S«  .*c\/0*  I  #\A..  *4*t  C?I#  il\xy  AT 

\S»At8tCX\JXDtf I  «  \*Gdt£f  •08dXt  .0A8  I 

-  «8S«  AX  .  VtC*  X\  JXK  AT  AC 
{Tx:^#U.I«0Cd9)G0X  3JI3  31*1330 
•ItY^OD/tiqyTI  (C0X*e)QA3«  X 


8  JVOO  >  A  :Ct'T  A  *0  •  o  3  IT  3o  mT  tM  3  J  83  I  3 1  D3tic.-3C?YT  I  **D 

./im  ewx-x 

£-S  **D 

T-£  **D 

A  X  *"  A  **D 

C j  i 8 U  TC ;  I  **D 

T  ..  X  .  U  8-  : 

9 iTTOjq-O 

33GD8-X  **D 


(  .0. *U« .X« • X  J3JAD2  JJAD 
S*0fctC8(  I m 

(£I€)TAM«03  OOX 
8ifteiGIHI  S 
(01 )OTOjq  J J AD  8 
38A*3  JJAD 
( .0* #0>D80tfG  J J AD  . 

s • x  =  i  ox  ca  e 

(l)jTlT;  t(0a*X*u#(tfI)3JTIT)  (XCX#e)CA33  ox 


liOAj  /  AD  02  XAM  *  03>i  I-UG  m  80F.AD  ^ )  3  JT I  T  TGjq-UTIT  **D 

OflAD  3  JT  I T  hD A3  /0  9  A^D  30  .OH-JTIT.;  **0 


(  SI «  Xfc  t  XAOd )  TAN,fl03  XOX 

t.  '  .  (3^  >  T  I  )  AD/.  I  ♦  (  jqYT  I  )  JXV,*  (33YT1  >X/)STOJS  JjAD 
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MAINLINE  GCPLT  ...(CONT'D) 

**TITLE*NTITL 
1  * INCXL( I  TYPE  )  ) 

RE AD ( 5  » 106  )  YBASE  *  BMV 


C**  YBASE-BASEL I NE  IN  DIGITAL  UNITS  (0-16383) 
C**  BMV-BASEL I NE  IN  M.V. 


YM AX =19. -BMV 
RE AD (5*100)  NPKS 


C**  NPKS-NUMBER  OF  SEPARATE  PLOTS  PER  CHROMATOGRAM 


CALL  FPLOT(-2»0. .BMV) 

DO  40  I  =  1  *  NPKS 

READ( 5*106  )  XSTRT  »XEND»PSTRT .AMP 


C**  XSTRT-ST  ART  I NG  RECORD  NO. 

C**  XEND-FINAL  RECORD  NO. 

C**  PSTRT-POS I T ION  ON  PLOT  OF  XSTRT  (IN  SEC.) 

C**  AMP-AMPLIFICATION  FACTOR  FOR  PLOTTING  SMALL  PEAKS 


READ (5*100)  I  NCR 


C**  INCR-INCREMENT  OF  DATA  TO  BE  PLOTTED ( I • E •  2  MEANS  EVERY 
C**  I  OTHER  POINT 


ADDX= I  NCR / 16 . 

I XS=XSTRT 
I XE=XEND 
X=PSTRT 

CALL  FPLOT (0 *X*BMV) 

NF I L= I XS-2* I  NCR 
READ ( 100 1 NF I L )  I Y ( 1 ) 

NF I L= I X  S- I  NCR 

READ ( 100'NFIL)  I Y ( 2 ) 

DO  40  NFIL=IXS* IXE* I  NCR 
READ ( 100'NFIL)  I Y ( 3 ) 

Y= ( ( IY (2 ) -YBASE )/ 1638 3. *20. ) *AMP+BMV 
IF ( Y-BMV ) 30  *31  *31 

30  Y  =  BMV 

31  IF ( Y-YMAX ) 35 *35 *34 
34  Y= YMAX 


ter  :j)  ••• 


i  .i  ’  ■  •• 


jTITtft3jTI  •* 

. 

V^ttieAey  (dOIt  c  )GA-'ifl 
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•  W  I  /.IJ32A-VN  **D 


vY8-«ex »x a  y 
axq/  (ooi«e)QA3fl 


v  n£>  >t/s  o>  o  e  n ...jq  3 taj  a 93a  30  «38yu, -a  q^ 


(VM6* .o*s-)TOjqq  jjao 
2>q/.tX*I  o a  oo 

<h  M#Tr;iaA#c/,3XtTqTex  (aox*e)CA3« 


.3  33 fl  JA/I3-C.  3 

t.-jja  i^n  *  ‘ex  - ,  Toj'i  c  omao<-  a; 


i  t  c;  i .  )  rA 

J,  !  ■  .....1)03  ej  ,1  -  X>0/  I -JO.  .. 

TXIIOq  83HT0I 


.  V  •  A 

T«Tax»axi 

0H3X*3XI 
TRTaq«x 
t vn a*x*o) Tojqq  jjad 
/  )/.i*s-axi*ji3s^ 
(i)YI  { Jiq/'OCI )0A3£ 
ja:wi-axi*jnrt 
is) yi  t jhh'ooi >aA3fl 
FO/I* 3Xl#aXI*JI3tt  0  A  OQ 

. 

V‘U.l  +  qMA*(  .0S#.£8£dX\(3eAeY-(S)YI  )  )«Y 

I  £  •  X  £  *  06 ( VMQ“Y ) 3 1 , 

VM8*Y  06 
AEt£*  •c»£(XAMY-Y)3I  X£ 

'XAMY -Y  A6 


MAINLINE  GCPLT 


• . . ( CONT • D ) 


35  I  Y ( 1 )  =  I Y ( 2 ) 

I  Y  (  2  )  =  I  Y  (  3  ) 

X=X+ADDX 

40  CALL  FPLOT ( 0  »  X  *  Y ) 

106  FORMAT ( 5F10. 5 ) 

CALL  FPLOT ( 0  *  X  *  BMV ) 

CALL  FPLOT ( — 1  *  T  X ( ITYPE) *  BMV  ) 
READ ( 5  » 1 00 )  NLABL 


C**  NLABL-NO •  OF  SUBTITLES  FOR  PLOT 


IF(NLABL)70. 70*32 
32  DO  33  I  =  1  *  NLABL 
READ (5*101)  L AB  *  N 


C**  LAB-SUBT I TLE 

C**  N-NO.  OF  CHARACTERS  IN  SUBTITLE 


READ ( 5  *  106 ) X,Y.XS*YS*THT 


C**  X  *  Y-POS I T I  ON  OF  THE  SUBT I TLE ( SEC .  AND  M.V.) 
C**  XS  ♦  YS-S  I  ZE  OF  LETTERSdN.) 

C**  THT-ANGLE  OF  LETTERS  IN  RADIANS 


CALL  FCHAR(X*Y*XS*YS*THT ) 
33  WRITE(7  *107)  (LAB(J)  »J=1*N) 
107  FORMAT ( 60A1 ) 

70  CALL  FPLOT(0*TX( ITYPE) *0. ) 
CALL  SCALF ( 1. *1. *0. *0. ) 
CALL  FPLOT (0  *2. *-2.5 ) 

GO  TO  1 
80  CALL  EXIT 
END 


( ■  1 T  D)  • . . 


( .  v .  v 


< s ) y i « < i ) yi  ee 

l  £  )  Y  !  (•  s  )  Y  I 
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-T  .  .  -7  *0 
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SUBROUTINE  PLOT2 
SUBROUTINE  PLOT2 

************  *  *****  ************************************ 


*  * 

*  * 

*  AXIS  GENERATION*  ANNOTAT I  ON  AND  PLOT  SCALING.  * 

*  * 


****************************************************** 


SUBROUTINE  PLOT  2 ( NX » NXL *  I NCX . TX » T I TLE *  NT  I TL *  I NCXL ) 
REAL  L A BX ( 3 )  » LAB Y ( 4 ) 

INTEGER  TITLE(2.60) 

DIMENSION  XLAB ( 60  )  .NT  I TL ( 2  ) 

DATA  LABX/ « TIME ' t '  (MI • » • N • )  ' / ♦ LABY/ ' S I GN ' * ' AL  (' 

*  ♦  • M.V. '  ♦  •  )  1 / 

NY  =  20 
NYL= 10 
XSPC=2 • 1 
YSPC  =  2  •  5 
DO  9  1=1.60 
9  XLAB ( I ) = I - 1 • 

CALL  FPLOT(-2».5..5) 

CALL  POINT(O) 

CALL  FPLOT ( 1 .XSPC  .YSPC ) 

DISTX=8.4/NX 
D I STY  =  5 • 0 /NY 
CALL  SCALF ( 1.  .1. >0.  *0. ) 

DXL=INCXL*DISTX 

DYL=5.0/NYL 

NXL=NXL+1 

CALL  FGRID(0*0. .0. .DISTX.NX) 

CALL  FGRID(1. 8.4*0. .DISTY. NY) 

CALL  FGRID(2*8.4*5.0.DISTX»NX) 

CALL  FGRID(3.0. .5.0.DISTY .NY) 

XN=- • 15 
YN  =  - • 2  5 

DO  20  I=1*NXL*INCX 

CALL  FCHAR (XN.YN* • 10. • 15 »0. ) 

WR  I  TE ( 7  *  100  )  XLAB (  I  ) 

20  XN=XN+DXL 
NXL=NXL-1 
100  FORMAT ( F4 • 1 ) 

XN= (8.4-1.65) /2 • 

YN=“. 45  c  . 

CALL  FCHAR(XN»YN*.15*.15.0. ) 


C  '  -3 
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•  •.  *#*  Mfr  *M  <*#*<  H*  ••  -  #  «  *  .  * 

* 
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•)  JA'  «  »H0ie  '  \Y"AJt  \  •  (•.  '.'IV)  1  t  •3MIT,\X8AJ  ATAG 

(  1  t  '  •  v  •  ' '  •  * 
0S*YH 
0  X  « J YH 

x.sooex 

6.S098Y 
06  • I  3  I  9  (  C 

.  . i -i  ( ij  x 
(8.te**s-)TGjqq  jjad 

,  ;  '  .  d 

cdc  :Yoqax*i)Tojq3  jjad 
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SUBROUTINE  PLOT2 


.  .  •  ( CONT ' D ) 


WR  I  TE ( 7  *101)  LABX 
101  FORMAT ( 4A4 ) 

YN=-. 65 

DO  23  1=1*2 

I F ( NT  I TL  (  I  )  ) 2  3  *  23  *22 

22  XN=(8.4-NTITL( I )*.15)/2. 

CALL  FCHAR(XN*YN*.15*.15*0.  ) 

N  =  NT  I TL  (  I  ) 

WRITE (7 *103)  ( T I TLE ( I  * J )  * J  =  1 *N  ) 

23  YN=YN- • 2 

103  FORMAT ( 60 A1 ) 

XN=-. 3 

YN  =  0  • 

DO  21  1=2*22*2 
J=  1-2 

CALL  FCHAR(XN*YN*.10*.15*0. ) 

WR I TE ( 7  *  104 )  J 

1 04  FORMAT (  12  ) 

21  YN=YN+DYL 

YN=(5.0-1.95)/2. 

XN=- • 4 

CALL  FCHAR(XN»YN» • 15  * • 15 *1*571 ) 
WRITE(7  *101  )  LABY 
CALL  FPLOT (0  *0. *0. ) 

UX=8.4/TX 
UYS5 • /2  0 • 

CALL  SCALF ( UX *UY *0. *0. ) 

RETURN 

END 
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( .0#  .OtQ)TQJ«H  JJAO 
XT\  •  8  =  XU 

•is\.e*YJ 

(  .0t#0* YU#XU)3JA08  JJAO 

,  0T3fl 
QH3 


F-  12 


MAINLINE  DATPT 
MAINLINE  DATPT 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


**************************  ****tt*-H.****  #*#*#***-*  *#****-»■-«• 


* 


* 


* 

* 

* 

* 

* 

* 

* 


* 

PLOTTING  OF  POINTS  FROM  G.C.  FILE.  THE  FOLLOWING  * 


PLOTS  ARE  AVAILIBLE.  * 

1.  RAW  SIGNAL  * 

2.  FIRST  DERIVATIVE  * 

3.  SECOND  DERIVATIVE  * 

* 


****************************************************** 


C**  PLOTS 


C**  VALUES  FOR  IDEC 


c 

c 

FIRST  DERIVATIVE 

PLOT 

1 

OVERPLOT 

4 

c 

SECOND  DERIVATIVE 

2 

5 

c 

RAW  SIGNAL 

3 

6 

C**  FUNCTIONS 
C  EXIT  0 

C  SPACE  FOR  NEW  PLOT  7 

DEFINE  FILE  1 00 ( 9600 1 1  » U * NEXR ) 

INTEGER  Y ( 13  )  *X  * DYDX1 » OFFST . DLAS 1 » DLAS2  > T I TLE ( 2  * 6  0 ) 
DIMENSION  NTITL ( 2  ) 


C** 

C** 

C** 

c** 

c** 

c** 

c** 

c** 


j-PLOT  DEVICE ( O-PLOTTER *  1-SCOPE) 

iCAN-MAX •  TIME  ALONG  X  AX  I S= ( 8 /2#* JSCAN )  MIN. 

JASHED  LINE  PARAMETER ( NO.  OF  MOVES  PER  DASH) 

40T E • • IMQV=Q-SOL ID  LINE 

'MAX-MAXIMUM  VALUE  OF  PLOT  VARIABLE 

iCAN  *  I  EXP  1  * IEXP2-SCAN  PARAMETERS 

>TRT  » I END-F I LE  LOCATION  OF  DATA ( 16*T I  ME ( SEC . )  ) 

SfFST-OFFSET  IN  TIME  COORD  I  NATE ( I N  FILE  LOCATION  UNITS) 


'  # 

.  I  w J  J  C  3  M~  .-3-1  0.0  C  3  OT  109  0  L.  i  fT  jq 

•  3  Ji  I  JIAVA  3 5- A  dTOjq 
JAtfOU  WAS  •  X 
3V1TAVU30  T2  13  .S 
jviTAvisaa  c/*0D3e  .e 

-  X  *#*  i  ***«****>#*##  ■  *#«h  - #  ******** 


TCJ9S3VO 

Tojq 

eTojq  *o 

330 1  *03  83UJAV  **D 

D 

A 

i 

3VITAVIS30  TSSI3 

d 

' 

d 

JA/'O  :  d  .  AV 

. 

2H0I T0HU3  **3 
TIXB 

X 

TQJ9  W3H  SO 3  30A9S  0 

Ifv:  fl  .  ifOCdt-lOOI  3  J  I  3  1330 

dt  S  )  3JT  I  T#  ^8AJC#ieAJ0t  T2330*  iXOYQt  X.  (  El  )  Y  P  303TM.I 

(S)JTITtf  rtOI2/3MI  | 


U3Q3<i-  tf 3  TLjq-0)33IVdC  TCjq-ai  **0 

.  I  .( ,  A^ec*^S\8  )  =<  1  XA  X  OMOJA  3MIT  •  XAM-/1AD2L  **3 

..  .  i  •  CWJ83T3MA8A9  3/ I  J  Q3MSA0  **3 
:MU  01  JOa-.  *VOYI  ..3T0H  **D 

3 JGA I SAV  Tojq  3G  3UJAV  MU • I XAM-XAMY  **0 
2R3T3MASA9  /A32-S9X3I •  1 9X3 1 ADS  I  *0 
(^.Djc  .  IT*dX)AT,C  U  /10IT/O0J  3  J 1  3-C.  3  I  *  TST2 1  **0 
<  wT  :  U  .  .  ITOCJ  ..JH  /i I  )  3 T A  lasOOD  3M2T  I'- 1  T32330-T8930  **} 


ooMnonooon 


MAINLINE  DATPT 


. . . (CONT ' D ) 


C** 

C** 

C** 


I Y-OFFSE T  IN  Y  COORDINATE 
I  EXPO-RAW  SIGNAL  EXP  FILTER  FACTOR 
IFILT-FILTER  FLAG 


C 

C 

C 

C 

C 

C 

C 

C 


O-NO  FILTER 

1- SPIKE  FILTER 

2- 13  PT  3  RD  ORDER 

3- 13  PT  5  TH  ORDER 

4- EXP 

5- 13  PT  3  RD  ORDER+SPIKE 

6- 13  PT  5  TH  ORDER+SPIKE 

7- EXP+SP IKE 


6  READ(5*1Q1)  IDEC 
I  F (  IDEC)25»25»4 
4  I F ( IDEC-6 ) 7  *  7  » 24 


C**  READ  PARAMETERS 

7  READ( 5*101)  ID, JSCAN* IMOV, ITIT 
I  F ( IMOV ) 40  » 40 ,4 1 

40  I MOV =32767 

41  I  ACT= 1 

I F (  ITIT  )  53  »  53  »  52 

53  NT  I TL ( 1  )  =0 
GO  TO  54 

52  DO  2  1  =  1,2 

2  READ! 5 ,10  2 )  ( T I T LE  (  I  ,  J  )  ,  J  =  1 , 60 ) ,NT I TL ( I  ) 

102  FORMAT (60A1 »8X» 12  ) 

54  NMOV=  0 

READ (5,100)  YMAX 

READ( 5 ,101 )  I  SCAN  ,  IEXP1 , IEXP2  * ISTRT* I  END  tOFFST , I Y 
*,IFILT,IEXPO 


C**  INITIALIZE  VARIABLES 

ALPHA= I  EXPO/100, 
ALPH1=IEXP1/100. 
ALPH2=IEXP2/100. 

I NC  =  2** I  SCAN 
DL AS1 =0 
DLAS2=0 

I F ( IDEC-3) 14,14,16 


C**  IDEC  =  4, 5 ,6-OVERPLOT 


I  0  '  '  .  j  )  . . . 


T  q  T  AQ  ji  I  JUI  AM 


3TAtf!GflOCO  Y  V\  T 3S330-Y I 

■. 

0AJ3  <3TJH-Tjni  **3 


D 

3 

3 


a3un  on-o 

b3tji3  3 >:^e-x 
830*10  C8  £  T9  CI-S 
*3080  HT  e  T3  £I-£ 

8X3-A 

3>I^2***V3a«0  08  £  T9  El-fi 
j  >  I  +83080  H"  e  T3  £  I  —  d 

i>i qa+qxs-r 


D3ai  (ioitejaA3q  <3 
A»estesn3ai  m 
AS#V»\  16-0301  )  31  A 


a?3T3YlA?Aq  CA38 


T  I  T  I  •  VOMI  tHAOSLt  QI  lX0ita)GA3a  V 

IA.OAtOA( VOYI  ) 3  I 

VdT££=VCy'I  0  A 
X  *TOA I  IA 
$£.£^•££(1111)31 

o* ( x )  jt i t  1  re 
ac  ot  co 
s«x=i  >  cc  s- 

( SI *X8t XAOd) TAM803  SOX 

:  V  •  4  1. 


X  AMY  (00X»e)GA3fl 

y l * t  33  *ay  iitT5naitsqx-3itX9x3itHADei  ixo:#a)GA3q 

03X31.  T  J I  3  I  *  * 


33 J8A I 8AV  3SIJAITI8I 


C)0  X  \  G 8  X 3  I  =  AHa  J  •*, 

oox\xqx3i=iHqjA 

oox\sqx3i=SHqjA 


hao3I**sohi 

0*X2AJa 

0*S3AJO 


dl  * ax* A1 (E-D3CI ) 3 1 


T0J383V0-d.  d.AO30I  **3 


MAINLINE  DATPT 


. . . (CONT ' D ) 


16  I DEC= I  DEC-3 
GO  TO  18 

C**  SET  UP  AND  POSITION  DESIRED  DEVICE 

14  I  F (  ID)llf  11*  10 

10  CALL  PLOTD ( ID) 

CALL  ERASE 

CALL  ORGSC ( 0 • »0. ) 

11  CALL  FPLOT(0f3.0»2.5) 

CALL  SCALF( 1. >1.  ,2.5*2.5 ) 


C**  VALUE  OF  YM  IN  DEPENDS  ON  TYPE  OF  PLOT 

I F ( I  DEC-3 ) 5 ♦ 8  *  5 
8  YM  I  N  =  0 • 

GO  TO  17 
5  YM I N=-YMAX 


C**  CONSTRUCT  AXIS 

17  CALL  AXIStYMAXf JSCANf I  DEC  * YM I N * T I TLE *  NT  I TL ) 


C**  READ  INITIAL  POINTS  TO  START  13  POINT  STRING 

18  NFIL=ISTRT-7*INC 
DO  12  1-1*12 
NF I L=  NF I L+ I NC 
12  READ ( 100'NFIL)  Y ( I  ) 


C**  PLOT 

X=OFFST 

READ( 100'NFIL)  Y ( 1 3 ) 


C**  SUBROUTINE  FILTR  PERFORMS  DESIRED  FILTERING  ON  RAW 
C**  SSIGNAL 

CALL  FILTR(Y*  IFILT  »ALPHA) 

C**  DER  CALCULATES  THE  FIRST  OR  SECOND  DERIVATIVE 

CALL  DER(Y#DYDXl#ALPHlfALPH2*IDEC#DLASl *DLAS2 ) 

RX  =  X 


*->  I  - 
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MAINLINE  DATPT  ...(CONT'D) 

RDYDX  =  DYDX 1  + 1 Y 


C**  NOTE.. IF  PLOTTING  RAW  SIGNAL  RDYDX*Y(7) 

CALL  FPLOT (  -  2  »RX  » RDYDX ) 

CALL  SHUFF(Y) 

1 1  =  ISTRT-f  INC 

DO  13  I  =  I  1  *  I  END  » I NC 

X  =  X+ I NC 

NF I L= I +6* I NC 

READ ( 100 ' NF I L )  Y ( 13 ) 

CALL  FILTR(Y»IFILT. ALPHA) 

CALL  DER ( Y.DYDX1 »ALPHl > ALPH2 *  I  DEC > DLAS 1 . DLAS2 ) 
RX  =  X 

RDYDX=DYDX1+ I Y 

CALL  FPLOT(0»RX»RDYDX) 

NMOV=  NMOV+ 1 NC 
I  F ( I MQV-NMOV ) 42  *42*13 

42  CALL  FPLOT( IACT  »RX*RDYDX) 

NMOV=0 

GO  TO ( 43 ♦ 44 ) ,IACT 

43  I  ACT  =  2 
GO  TO  13 

44  I ACT= 1 

13  CALL  SHUFF(Y) 

CALL  FPLOT ( 1 *XMIN *YMIN ) 

GO  TO  6 


C**  SPACE  FOR  END  OF  PLOT 


24  CALL  SCALF ( 1 • *1 
CALL  FPLOT ( 0  »  9 • 
CALL  SCALF ( 1 • *1 
GO  TO  6 

25  CALL  EXIT 

100  FORMAT (2F10. 5 ) 

101  FORMAT (1015) 

END 


» 2  •  5  » 2  •  5  ) 
0.  ) 

»  0  .  *  0  •  ) 


T  31  £Q  3h  l  J/l  1  Ay 


(  •  T,’lO;  .  .  * 
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3KH-T*Tai*II 
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X*Xfl 

Y  1  + 1  X€1YQ  =  XQYQfl 
(XCYGftX  *C)T0J93  JJAD 

dui+vom;  =vo^h 

£It$A«  SA{ VC  «  .i-VOMI  >31 
[>  C3«X  «  TDA I ) TOJ93  JJAD  SA 

0»VOMM 
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p 
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SUBROUTINE  AXIS 
SUBROUTINE  AXIS 


*  * 

*  * 

*  AXIS  GENERATION. ANNOTATION  AND  PLOT  SCALING.  * 

*  * 


*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *********  *  *  *  -it-  <5-  *******  *  *  *  *  *  *  *  *  *  *  *  ******  * 


SUBROUTINE  AX  I S ( YMAX > JSC AN  *  I  DEC » YM I N » T I T LE .NT  I TL ) 
INTEGER  T  I  TLE ( 2  ♦  60 ) 

DIMENSION  NTI TL ( 2 ) 

Y1  =  2  •  5 
Y2  =  6. 

Y3  =9 • 5 
YL  =  7  • 

N  Y=  10 
NX  =  6 
XM I N=0 • 

XM  AX=  3  0  •  *  16  •  #  1 6  •  /  2  *  *  J  S  C  A  N 

SY=YL/NY 

SX  =  5  • 0 /NX 

CALL  FGR I D ( 1 »  2 • 3  ♦  Yl.SY.NY) 

CALL  FGRID(0»2.5 .Y3.SX.NX) 

CALL  FGRID(3.7#3.Y3*SY .NY) 

CALL  FGRID(2.7*3»Y1.SX*NX) 

I F ( IDEC-3)2>3.2 

2  CALL  FGR ID (0 *2. 3  .  Y2 »SX .NX ) 

3  I NC  =  X M A X / (  N  X  #  1 6  ) 

NX=NX-1 

I  X  =  0 
XS=2.4 
YS-Y1-.2 
DO  10  1  =  1.  NX 
IX=  IX+INC 
XS=XS+SX 

CALL  FCHAR(XS»YS.«1.*15.0* ) 

10  WRITE(7»100)  IX 
100  FORMAT (13) 

I D I V=  2 

INC=(YMAX/NY-YM IN/NY )*IDIV 

S Y -  I D I V*S Y 

I Y=YM I N 

XS= 1 • 8 

YS=Y1-SY 

NY=NY+1 

DO  20  I  =  1 »NY  » ID  I  V 
YS=YS+SY 


dlXA  3/iJTUG:  flU2 


diXA  3^1ITUO«8Ue 


,  j  i  .  c  '  ..  G.  A  .01  T  *.  '■ «  .  I  u£:  dlx  , 


TIT,*  j  :  I  i  t.  I  •  Y.  )3ul  «  mAG£u*X.  4  Y  )  d  I  X  *.•  i  Tu;  8  Jd 

10<  *  S ) 3 JT I T  FJt)3TKl 
(S)  JTIT,  »‘.01dl  3  lIO 

e.s*XY 

•  d«SY 
c  #9*£Y 

•  Y  *  JY 

‘  .  *  * Y,' 
d*X/t 
•0»MlMX 

i  AGdL**SV.dX*.dX*.G£*XAMX 

YiAVJY*  YS 

xa\ o.d*xa 

{  Y  /  •  Y  f-  *  X  Y  •€.SfXJOI«03  JJAG 
(XA.Xd.tY.d.S. 0)01*03  J  J  AG 
{ Y, * Ydt£y* C.Y.£ )0I*D3  J J AG 
(  .  •  Iv  »c,V»  A  )Ll  HC3  'JJO 
St£*S(£-G3C3I ) 3 1 
(  X,  ./>» AY.,  .S*Q)ai*03  JJO  S 

(  u  )  \/ .  ■  01  :  i 

x-x/ *xn 

0«XI 

A.s=ex 

•  •  •  -  Y 

XW* I  *  1  OX  OG 
g^i+x:«xi 
xa+ex»dx 

,  .  u .  x  *  •  X  .  «  d  Y*d>  )  VAHG3  JJAG  • 

XI  tOOItT)-3TI»W  OX 
( £  I ) T A • 303  OOX 
S»VIGI 

V  I  Q  i  *  (  Yi  \i  I  ’  Y-Y,  \  XAVY  }  *3/  I 

Yd*viai*Ye 
/;  IMY*  Y  I 

8*x*ex 

Yd“X YsdY 
i+YH*YH 
ViCI*Ylrt*XaI  OS  OQ 
y  e+eYa2Y 


o  n  n  n  n  n 


SUBROUTINE  AXIS 


. . . (CONT*  D ) 


CALL  FCHAR(XS*YS*.1*.15#0.  ) 

WR I TE ( 7 ♦ 10  1  )  IY 

20  IY=IY+INC 

101  FORMAT (16) 

XS= 1 • 7 
YS=Y2“ • 8 

CALL  FCHAR(XS*YS*.1». 15*1. 571) 
GO  T0(30*31 *33) *  IDEC 

30  WR I TE  C  7  *  102  ) 

102  FORMAT( ‘FIRST  DERIVATIVE1) 

GO  TO  32 

31  WR I TE ( 7  *  103  ) 

103  FORMAT ( 'SECOND  DERIVATIVE') 

GO  TO  32 

33  WR I TE ( 7  *  105  ) 

105  FORMAT ( '  DIGITAL  SIGNAL  ') 

32  YS=Y 1“ • 4 
XS=4. 5 

CALL  FCHAR(XS*YS*.1*.15»0. ) 

WR I TE ( 7  *  104 ) 

104  FORMAT ( 'TIME(SEC) ' ) 

I F ( NT  I TL ( 1 )  )  2  1  *  2 1  * 40 
40  NN  =  NT I TL ( 1 ) 

XS=2 • 5+ ( 5.0-NN*. 1 ) /2 • 

CALL  FCHAR(XS*1.5*.1*.15*0.) 

WR  ITE (7  *200 )(TITLE(1*J)*J=1»NN) 
NN=NT I TL ( 2 ) 

XS=2.5+( 5.0-NN*. 1 ) /2 • 

CALL  FCHAR(XS*1.1*.1*.15*0. ) 

WR  I  TE ( 7  *200  )  (TITLE(2*J) *J=1*NN) 
200  FORMAT ( 60 A1 ) 

21  CALL  FPLOT ( 0  *  2 • 5  »  2 • 5 ) 

U X  =  5 • / ( XMAX-XMIN  5 

UY= ( Y3-Y1 ) / ( YMAX-YMIN ) 

CALL  SCALF(UX*UY*0. *YMIN) 

RETURN 

END 
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SUBROUTINE  FILTER 
SUBROUTINE  FILTER 

****************************************************** 


*  * 

*  * 

*  RAW  SIGNAL  FILTERING.  * 

*  * 


****************************************************** 


SUBROUTINE  F I LTR ( Y *  I F I LT  ♦  ALPHA ) 

INTEGER  Y ( 1 3 ) 

DIMENSION  A3 ( 7 ) * A5 { 7 ) 

DATA  A3 /- 1 1 • *0. #9. *16. *21. *24. »12.5/»B3/143./ 

DATA  A5/110.»-198. *-160. *110. #390. .600. *338. 5/.B5 
*/2431. / 

I SAVE  = I F I LT 

7  IF ( IFILTJ9.9.8 

8  GO  TO  ( 1  *2  *3  *4  ♦  1  *  1  » 1  )  »  I  FI  LT 


C**  SPIKE  FILTER 

1  IF ( Y( 12 )-Y ( 13 ) ) 30*50*20 
20  IF(Y( 12 )-Y( 11 )) 50*50*40 
30  I F ( Y ( 12  )-Y( 11)  )40*50»50 
40  Y(12)=(Y(11)+Y(13) )/2 
50  I  F I LT= I F I LT-3 
GO  TO  7 


C**  13  PT  3  RD  ORDER 

2  SUM=0 • 

DO  60  1=1*7 
J  = 14-  I 

60  SUM=A3( I )*(Y( I )+Y( J) )+SUM 
Y ( 7 ) =SUM/B3 
GO  TO  9 


C**  13  PT  5  TH  ORDER  FILTER 


3  SUM=0 • 

DO  70  1=1*7 

J  = 1 4— I 

70  SUM=A5 ( I ) * ( Y ( I ) +Y ( J ) )+SUM 
Y ( 7 ) =SUM/B5 
GO  TO  9 
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SUBROUTINE  FILTER 


. . . (CONT ' D ) 


C**  EXPONENTIAL  FILTER 

4  Y7=ALPHA*Y(7)+( 1*-ALPHA)*Y(6) 
Y ( 7 ) = Y7 

9  I F I LT= I SA VE 
RETURN 
END 
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SUBROUTINE  DER 
SUBROUTINE  DER 

£  *****#**#*****#*#***#****#*******-}{•#*****■«•*■**#•«■#***#**# 


c 

* 

* 

c 

* 

* 

c 

* 

CALCULATION  OF  DESIRED  DERIVATIVE. 

* 

c 

* 

J=1 

FIRST  DERIVATIVE 

* 

c 

* 

Js  2 

SECOND  DERIVATIVE 

* 

c 

* 

J= 3 

RAW  SIGNAL 

* 

c 

* 

* 

Q  ********  *#**#■*■**••«-■«••&*##•#•***-  ******  ***************  ******* 


SUBROUTINE  DER ( Y  > DYDX 1 ♦ ALPH 1  * ALPH2  » J * DLAS 1  * DLAS2 ) 
INTEGER  Y (  13 )  »DYDX1 »DLAS1 > DLAS 2 
GO  TO ( 1 0 ♦ 20  *  2  5  )  *J 
10  DYDX 1 = ( Y ( 10 )-Y (4 )+Y(9 ) -Y ( 5  >  ) *2 
DYDX1=DYDX1+Y ( 10 ) -Y ( 4 ) +Y (8 )  -  Y (6) 


C**  EXPONENTIAL  FILTER 

D=ALPHl*DYDXl+{ 1 .-ALPH 1 ) *DLAS1 

DYDX1=D 

DLAS1=DYDX1 

GO  TO  30 

20  DYDX 1 = ( Y ( 13 ) + Y ( 1 ) -2*Y ( 7 ) +Y ( 12 ) -Y ( 6 > +Y ( 2 ) -Y ( 8 ) )*2 
DYDX 1= DYDX 1+Y ( 1 3 ) +  Y ( 1 ) -2 *Y ( 7 ) 
DYDX1=DYDX1+Y(3)-Y(5)-Y(9)+Y(11) 


C**  EXPONENTIAL  FILTER 

D=ALPH2*DYDXl+ ( 1 .-ALPH 2 ) *DLAS2 
DYDX 1 =D 
DLAS2=DYDX 1 
GO  TO  30 
25  DYDX 1  =  Y ( 7  ) 

30  CONTINUE 
RETURN 
END 
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SUBROUTINE  SHUFF 


SUBROUTINE  SHUFF 


SUBROUTINE 
INTEGER  Y( 
DO  10  1=1* 
10  Y  (  I  )  =  Y  (  I  +  1 
RETURN 
END 


SHUFF ( Y ) 
3  ) 
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